Bonjour et bienvenue sur le forum
Bonjour à tous
Un essai si j'ai bien compris...
Option Explicit
Dim i&, col&
Sub NombreParMois()
Range("D2:O2").ClearContents
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
col = Month(Range("A" & i)) + 3
Cells(2, col) = Cells(2, col) + 1
Next i
End Sub
Bye !