Sub Macro5()
Range("A1").Select
ActiveSheet.Paste
For n = 6 To Sheets("Xtacho").Range("A" & Rows.Count).End(xlUp).Row
If (Left(Sheets("Xtacho").Range("A" & n), 8)) = "Dimanche" Then
Range("C" & n) = Range("B" & n).Value
Range("B" & n) = Range("B" & n - 6)
Range("E" & n) = "=SUM(R[-6]C:R[-1]C)"
Range("E" & n).Copy
Range("E" & n).PasteSpecial Paste:=xlPasteValues
Range("A" & n) = "=INT(MOD(INT((RC[1]-2)/7)+0.6,52+5/28)+1)"
Range("A" & n).Copy
Range("A" & n).PasteSpecial Paste:=xlPasteValues
Range("G" & n) = "=SUM(R[-6]C:R[-1]C)-SUMIF(R[-6]C[1]:R[-1]C[1],""Kompensation"",R[-6]C:R[-1]C)"
Range("G" & n).Copy
Range("G" & n).PasteSpecial Paste:=xlPasteValues
End If
Next
End Sub