XL 2019 Effacer des cellules non adjacentes sur les lignes sélectionnées

Mongo à dit:

Bonjour,
J'ai demandé de l'aide récemment pour faire de la copie de lignes : https://www.excel-downloads.com/thr...onnes-vers-un-emplacement-dynamique.20065248/.

J'aimerais une variante pour effacer certaines cellules de lignes préalablement sélectionnées. Le souci est que ces cellules ne sont pas adjacentes.
En partant de la macro qui m'avait dépanné, cela pourrait faire ceci mais je bute sur la sélection des cellules non adjacentes :

With Intersect(ActiveSheet.[D:K], Selection.EntireRow) ===> je voudrais par ex. sélectionner de A à C puis, E, G, I
Intersect(ActiveSheet.[D:K], Selection.EntireRow).ClearContents
End With

Merci

Cliquez pour agrandir...

Sub test()
    Dim lig&
    lig = Selection.Row
    Union(Range(Cells(lig, "a"), Cells(lig, "c")), Cells(lig, "e"), Cells(lig, "g"), Cells(lig, "i")).ClearContents
End Sub

Mongo à dit:

Pour ces lignes 3, 4 et 5, je souhaite effacer les cellules des colonnes a, c, e, d, j

Cliquez pour agrandir...

Sub test()
    Dim c As Range
    For Each c In Selection.Resize(, 1)
        Union(Cells(c.Row, "a"), Range(Cells(c.Row, "c"), Cells(c.Row, "e")), Cells(c.Row, "j")).ClearContents
    Next
End Sub

mapomme à dit:

Bonjour à tous,

Une autre pour le fun avec Intersect au lieu de Union:

VB:

Sub Essai()
   Intersect(Selection.EntireRow, Range("a:a,c:c,e:e,d:d,j:j")).ClearContents
End Sub

Cliquez pour agrandir...

Les colonnes ont changées...

Cliquez pour agrandir...