Bonjour à tous
Si on veux conserver l'array pour autre chose :
Sub test()
Dim Effacer As Range
With ActiveSheet 'a modifier suivant nom de feuille
Set Effacer = Union(.Range("d6"), .Range("e6"), .Range("c6"), .Range("h6"), .Range("i6"), .Range("j6"), .Range("k6"), .Range("m6"))
End With...