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.
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