re,
pour commencer je changerais la cellule (en feuil1) A6 par =DATE($D$1;1;1) et A7 par =A6 + 1 et recopie vers le bas
ensuite , au lieu de chercher sur "dimanche", on cherche sur weekday / joursem = 1 pour trouver le dimanche
en colonne D tu peux alors mettre en B6 = A6 comme ça les 2 cellules sont liées.
Sub Insereligne()
Dim DerniereLigne As Long, Ligne As Long
Application.ScreenUpdating = False
DerniereLigne = Cells(65536, 4).End(xlUp).Row
For i = DerniereLigne To 6 Step -1
If Weekday(Cells(i, 3)) = 1 Then
Cells(i + 1, 1).EntireRow.Insert Shift:=xlDown
End If
Next i
End Sub
P.