bonjour,
une proposition, basée sur ton fichier. ne fonctionnera pas si le tableau est placé autrement qu'en C4:O4
Sub colmois()
i = 5
While Cells(i, 3) <> ""
m = Month(Cells(i, 3))
Select Case m
Case 1 To 2
col = m + 13
Case 3 To 12
col = m + 1
End Select
Cells(i, col) = 1
i = i + 1
Wend
End Sub
edit : code corrigé