Sub proc_recapitulatif_annuel()

'Titres
Range("B2").Value = "Total des frais" Range("A1").Value = "Frais " & _
frm_nouveau_classeur_de_frais.txt_annee.Value 'Valeur du champ txt_annee
ActiveCell.Font.Bold = True
ActiveCell.Font.Size = 28

'Poignée de recopie
Range("A3").Select
Selection.Value = "janvier"
Selection.AutoFill Range("A3:A14")

'Somme des frais
Range("B15").Formula = "=SUM(B3:B14)"

'Format monétaire
Range("B3:B14").NumberFormat = "#,##0.00 €"

'Bordures
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous

'Renomme la première feuille
Sheets(1).Name = "Récapitulatif Annuel"
Range("B3").Select

End Sub

Sub proc_formule_recape()
Sheets("Récapitulatif Annuel").Select 'Sélection
For i = 1 To 12 Step 1
' Soit Range("B3").Formula = "=Janvier!C20"
Range("B" & i + 2).Formula = "=" & MonthName(i) & "!C20"
Next i
End Sub