Sub Macro2()
'
' Macro2 Macro
'
'
Dim colonnevide As Integer
Application.ScreenUpdating = False
colonnevide = Sheets("Donnée").Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
mois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
For i = 1 To 12
Cells(1, colonnevide + i) = Year(Date) + 1
Cells(2, colonnevide + i) = i
Cells(3, colonnevide + i) = mois(i - 1)
Next
End Sub