Bonjour informacyde, gmb,
Bonjour le forum,
quelque chose comme ça?
Tape n'importe quel mois, n'importe où, la macro complètera la ligne (sauf si pas de place à gauche, bien sûr!)
Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim tData()
tData = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
'
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
'
For x = 0 To 11
If Target = tData(x) Then
iCol = Target.Column
iStart = iCol - (x * 4)
For y = iStart To iStart + 44 Step 4
iIdx = iIdx + 1
If y > 0 Then Cells(Target.Row, y) = tData(iIdx - 1)
Next
End If
Next
'
Application.EnableEvents = True
'
End Sub
A+