Bonjour,
Un essai ...
Sub Recopieformules()
Dim Dlig As Integer
With Worksheets("Planning")
Dlig = .Cells(Rows.Count, "U").End(xlUp).Row
.Cells(7, "U").FormulaR1C1 = "=IFERROR(ROUND(RC[-1]-LEFT(RC[-2],2)+IF(RIGHT(RC[-2],4)=""Allt"",COUNTIFS(RC[34],"">0"",RC[68],"">0,01"",RC[102],""<>0"",RC[136],"">0"",RC[170],"">0"",RC[204],"">0"",RC[238],"">0"")),0),0)"
.Cells(7, "U").AutoFill Destination:=Range("U7:U" & Dlig)
.Cells(7, "V").Select
End With
End Sub
ric