Microsoft 365 cellules effacement critère sur même ligne

[Gilles Carl]

bonjour a tous,
J'ai une question pour vous,
Dans un tableau comment effacer deux cellules différentes d'une même ligne et de colonne différente
selon un critère dans une colonne différente de la même ligne? en vba.
ex: tableau de 8 colonnes, effacer seulement les cellules sur ligne 1 de la colonne A et G en fonction de la colonne H ( tous sur la
meme ligne 1).
Je voudrais seulement effacer (vider)les cellules et non les supprimer.
merci.

 

[Staple1600]

Bonsoir le fil, Gilles Carl

Sub AVueDeNezAuPifCarPasDeFichierExempleFourni()
Dim c As Range, p As Range
Set p = [A1:G1]
For Each c In p
If c = [H1] Then c = ""
Next
End Sub