Bonsoir romeo21, Joco7915, le forum,
A tester:
Sub test()
With Sheets("Formulaire Devis")
Union(.Range("D6:H15"), .Range("D17:K28"), .Range("D30:K34"), .Range("D37:K47"), .Range("D51:G55"), _
.Range("I51:L55"), .Range("D57:K59")).ClearContents
End With
End Sub
Cordialement,