Sub proc_ajoute_12_nouvelles_feuilles()

'Ajoute 12 feuilles en les renommant avec le nom des mois
For i = 12 To 1 Step -1 'Boucle "à l'envers" pour classer les mois
Sheets.Add 'Ajoute
ActiveSheet.Name = MonthName(i) 'Renomme
Next i

End Sub

Sub proc_tableau_mensuel()

'Titres
Range("A1").Value = "Date"
Range("B1").Value = "Motif"
Range("C1").Value = "Montant"

'Largeur de colonnes
Columns("A:C").ColumnWidth = 20

'Bordures
Range("A1:C19").Select
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous

'Fonction somme
Range("C20").Formula = "=sum(C2:C19)"

End Sub

'A rajouter dans la boucle:
proc_tableau_mensuel 'Appel de procédure distante

'Puis avant la boucle FOR Next
Application.ScreenUpdating = False 'Gèle de l'écran

'Et après la boucle :
Application.ScreenUpdating = True 'Dégèle de l'écran