Sub insert()
For i = 9 To Range("A63").End(xlUp).Row
On Error Resume Next
With Sheets("Fiche")
If Cells(i, 1) <> "" Then
If Weekday(Cells(i, 1), vbMonday) = 5 Then
Cells(i + 2, 1).EntireRow.insert , copyorigin:=xlFormatFromRightOrBelow
Range(Cells(i + 2, 1), Cells(i + 2, 4)).Select
With Selection.Interior
.ColorIndex = 15
End With
End If
Else
End If
End With
Next i
End Sub