derlign = Feuil1.Range('A56635').End(xlUp).Row ' la derniere ligne
For lign = 2 To derlign ' boucle pour tester les lignes
derlign = Feuil1.Range('A56635').End(xlUp).Row ' recherche de la derniere ligne
dates = Feuil1.Range('A' & lign) ' va chercher la date
'numéro de la semaine en fonction de la dates
Semaine = Int((dates - DateSerial(Year(dates), 1, 1) + _
((Weekday(DateSerial(Year(dates), 1, 1)) + 1) _
Mod 7) - 3) / 7) + 1
If Semaine = 0 Then
Semaine = (DateSerial(Year(dates) - 1, 12, 31))
ElseIf Semaine = 53 And (Weekday(DateSerial(Year(dates), 12, 31)) - 1) _
Mod 7 <= 3 Then
Semaine = 1
End If
If Semaine2 <> Semaine Then ' test pour savoir si la date de la ligne est diff de la ligne précédante
Feuil1.Rows(lign).insert Shift:=xlDown 'insertion ligne
Feuil1.Range('a' & lign) = 'Semaine ' & Semaine 'on inscrit le n° de semaine dans la ligne ajouter
Semaine2 = Semaine ' pour le prochain test
End If
Next