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