Sub insert()
Dim DerLig As Integer
DerLig = Sheets("Fiche").Range("A140").End(xlUp).Row + 1
For i = 9 To DerLig
On Error Resume Next
With Sheets("Fiche")
If Cells(i, 1) <> "" Then
Debug.Print Weekday(Cells(i, 1), vbFriday) 'pour vérification
Debug.Print Weekday(Cells(i + 1, 1), vbMonday) 'pour vérification
If Weekday(Cells(i, 1), vbFriday) = 1 And Weekday(Cells(i + 1, 1), vbMonday) = 1 Then
Cells(i + 1, 1).EntireRow.insert , copyorigin:=xlFormatFromRightOrBelow
Range(Cells(i + 1, 1), Cells(i + 1, 4)).Select
With Selection.Interior
.ColorIndex = 15
End With
i = i + 1
End If
End If
End With
Next i
End Sub