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...