Bonjour,
Tout fonctionne correctement apparemment ! merci
juste quand j'essaye la remise a zéro cela bug ici
With .ListObjects("Tab_Loc_Linge")
.Range.Item(1, 3).Resize(.ListRows.Count, .ListColumns.Count - 2).ClearContents
.Range.Item(1, 3).Formula = FormuleLingeHebdo
.Range.Item(1, 3).AutoFill Destination:=.Range.Item(1, 3).Resize(1, .ListColumns.Count - 2)
.Range.Item(1, 3).Resize(1, .ListColumns.Count - 2).Copy
For i = 6 To .ListRows.Count Step 5
If .Range.Item(i, 1) <> "TOTAL" Then
.Range.Item(i, 3).Select
ActiveSheet.Paste
Else
' BLOCAGE ICI
.Range.Item(i, 3).Formula = FormuleLingeTotal
.Range.Item(i, 3).AutoFill Destination:=.Range.Item(i, 3).Resize(1, .ListColumns.Count - 2)
si tu as deux minutes merci
End If
Next i
End With