Bonjour, bonjour. J'ai un petit souci pour mon code VBA, alors voilà, j'ai un tableau, trier par date, et je voudrais une insertion de ligne pour marquer la différence entre chaque mois.

Je vous montre mon code, car il ne fonctionne pas. pourtant je ne vois pas d'erreur :/

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Trier_par_date()
 
Columns("B:B").NumberFormat = "dd/mm/yy"
q = 1
For m = 1 To 12
For u = 1 To Sheets("Crée stat").Cells(3, 2)
If Month(Cells(u, 2)) = Month(m) Then q = q + 1
Next
Rows(q).Insert Shift:=xlDown
Cells(q, 2) = Month(m)
q = q + 1
Next
 
End Sub
Voilà, si quelqu'un jette un petit coup d’œil, je le remercierai d'avance.