Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage
If Target.Count > 1 Then Exit Sub
Set Plage = Range("d4:d" & Cells(Rows.Count, "A").End(xlUp).Row)
If Not Intersect(Target, Plage) Is Nothing Then
If Target.Offset(, -1) <> "" Then
Target = IIf(Target = "X", "", "X")
Target.Offset(, -3).Activate
End If
End If
End Sub