Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("N2:N1000")) Is Nothing Then
Application.EnableEvents = False
If Target = "X" Then
Target = ""
Else
Target = "X"
End If
Application.EnableEvents = True
End If
End Sub
Sub Efface()
DerLig = Sheets("Feuil1").Range("N65500").End(xlUp).Row
tablo = Sheets("Feuil1").Range("N1:N" & DerLig)
For i = 1 To UBound(tablo)
If tablo(i, 1) = "X" Then
Sheets("Feuil1").Range(Cells(i, 1), Cells(i, 7)).ClearContents
Sheets("Feuil1").Range("N" & i) = ""
End If
Next i
End Sub