Effacement auto de cellule

[fleet21]

bonjour,

je joins la macro suivante. Je souhaite effacer la case Ax si Bx est vide excepté pour B1 la formule ne fonctionne pas si quelqu'un peut me débloquer merci. Pour info le module 1 ne sert pas.

 

[mapomme]

Bonsoir à tous,

Une autre solution ?:

Private Sub Worksheet_Change(ByVal Target As Range)
   Application.EnableEvents = False: On Error Resume Next
   Range("b3:b100").SpecialCells(xlCellTypeBlanks).Offset(, -1).ClearContents
   Application.EnableEvents = True
End Sub

 

[fleet21]

Merci beaucoup ma pomme c'est exactement ce qu'il fallait. Staple1600 désolé ça ne convient pas mais merci quand même.