Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [D2]) Is Nothing And [B2] <> "" Then
'[B2] = "" 'Efface le contenu de "B2"
With [B2]
.Value = "": .Interior.Color = RGB(255, 255, 255): .Font.Color = RGB(255, 255, 255) 'Efface le contenu de "B2" puis couleur de fond et de police = blanc
End With
End If
End Sub