A SUPPRIMER, inutile pour moi finalement
Private Sub Worksheet_Change(ByVal Cible As Range)
If Cible.Column = Columns("X").Column And Cible.Row > 1 And Not IsEmpty(Cible.Value) Then
Application.EnableEvents = False
Cible.Offset(0, -19).Resize(1, 20).ClearContents
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Cel As Range, Plg As Range
Set Plg = Intersect(Cible, Columns("X").Resize(Rows.Count - 1).Offset(1))
If Not Plg Is Nothing Then
Application.EnableEvents = False
For Each Cel In Plg.Cells
If Not IsEmpty(Cel.Value) Then Cel.Offset(0, -19).Resize(1, 20).ClearContents
Next
Application.EnableEvents = True
End If
End Sub