Sub cartman()
For i = 2 To Range("A65536").End(xlUp).Row
mois = Month(Cells(i, 4))
For j = i To Range("A65536").End(xlUp).Row
If Month(Cells(j, 4)) = mois Then
cpt = cpt + 1
der_ligne = j
End If
Next j
Rows(der_ligne + 1).Select
Selection.Insert Shift:=xlDown
Cells(der_ligne + 1, 1) = "nombre de session au mois de " & mois & " = " & cpt
cpt = 0
i = der_ligne + 1
Next i
End Sub