Croix dans colonne par click

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
If Not Intersect(Target, Application.Union(Range("C5:C15"), Range("C18:C24"), Range("C26:C31"), Range("F5:F15"), Range("F18:F24"), Range("F26:CF31"))) Is Nothing Then
    If IsEmpty(Target.Value) Then
        Target.Value = "X"
    Else
        Target.Value = ""
    End If
End If
End Sub

If Not Intersect(Target, Range("C5:C15, C18:C24, C26:C31")) Is Nothing Then