Effacement

Bonjour

avec une macro événementielle du style

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range('A1')) Is Nothing Then
If Range('A1') = '' Then Range('B1') = ''
End If

End Sub

Cette macro t'efface B1 si tu effaces A1

Bon courage

Impeccable Merci Beaucoup
@+