Probleme reconnaissance de date dans tableau apres le tri

Bonsoir à tous,

je debute en vba et j'ai recuperer la feuille des resultats mondiaux de ce satané Covid, le theme n'est pas tres sympa, mais les chiffres y sont...

voilà, j ai donc cette base de données, et j ai voulu créer un sousbase que j'envoie pour chacun des mois dans une feuille distincte, je ne peux pas joindre le fichier,,ici car il dépasse les 2.5 mo, mais vous donne mes lignes de codes.

mon soucis: les feuilles se créent bien mais les mois ne sont pas triés, pourtant excel apparemment reconnait correctement le format date.

je viens donc vers vous car mon savoir aujourd'hui n'est pas assez grand pour pouvoir resoudre ce probleme.

Option Base 1
Sub covid_par_mois()
Feuil1.Select

'on enleve toutes les feuilles
For Each sh In Sheets
If sh.Name <> "Covid_Mondial" Then
Application.DisplayAlerts = False
sh.Delete
End If
Application.DisplayAlerts = True
Next sh
covid = Range("a1").CurrentRegion.Value
Dim stat()
'pour titre des colonnes
For col = 1 To UBound(covid, 2)
ReDim Preserve stat(UBound(covid, 2), 1)
stat(col, 1) = covid(1, col)
cpteur = 1
Next col

'pour le reste : creation d'un feuille par mois
For d = 1 To 9
For l = 2 To UBound(covid, 1)
If Month(covid(l, 1)) = d Then ' 
cpteur = cpteur + 1
ReDim Preserve stat(UBound(covid, 2), cpteur)
For col = 1 To UBound(covid, 2)
stat(col, cpteur) = covid(l, col)
Next col
End If
Next l
'on rajoute une feuille et on la nomme avec le nom du mois
Sheets.Add , Sheets(Sheets.Count)
ActiveSheet.Name = MonthName(d)
Range(Range("a1"), Cells(cpteur, UBound(covid, 2))) = Application.Transpose(stat)
Next d
End Sub

je vous remercie par avance de votre aide et vous souhaite une bonne soirée et santé!!!!

Jean-Noel

j ai fini par trouver !!!!

la boucle for représentant les années *d" doit être la première !!! Voilà

desole la prochaine fois je me concentrerai un peu plus.

par contre pourriez vous me dire comment mettre le sujet en "résolu"?

merci

bonne soirée à tous