Effacer cellule si

bonjour,

j'ai en colonne B une formule étiré jusqu'en bas

serait il possible d'effacer par macro celles qui son voisines des cellules vides de la colonne A ?

dans mon exemple celles qui sont en rouges

mes essais sont infructueux

merci

cordialement

Bonjour

Sub Efface()
    Range("A1:A" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Offset(, 1).ClearContents
End Sub

Cordialement

merci amadéus !!