Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR=seagreen]' Tests pour déterminer si le clic se produit dans une des cases[/COLOR]
[COLOR=seagreen]' qui nous intéresse... en quittant la sub si c'est pas le cas[/COLOR]
[COLOR=#2e8b57]' Colonnes autres que 4 à 7[/COLOR]
If Target.Column < 4 Or Target.Column > 7 Then Exit Sub
[COLOR=#2e8b57]' Ligne 1 à 13[/COLOR]
If Target.Row < 14 Then Exit Sub
[COLOR=#2e8b57]' Lignes entre 24 et 29[/COLOR]
If Target.Row > 23 And Target.Row < 30 Then Exit Sub
[COLOR=#2e8b57]' Lignes entre 36 et 48[/COLOR]
If Target.Row > 37 And Target.Row < 49 Then Exit Sub
[COLOR=#2e8b57]' Lignes 55 à ...[/COLOR]
If Target.Row > 54 Then Exit Sub
[COLOR=#2e8b57]' Déprotège la feuille[/COLOR]
ActiveSheet.Unprotect
[COLOR=#2e8b57]' Contrôle dans quelle colonne on se trouve[/COLOR]
Select Case Target.Column
Case 4
[COLOR=#2e8b57]' Met un X dans la 4 et nettoie les 3 autres[/COLOR]
Cells(Target.Row, 4) = "X"
Cells(Target.Row, 5) = ""
Cells(Target.Row, 6) = ""
Cells(Target.Row, 7) = ""
Case 5
[COLOR=#2e8b57]' Met un X dans la 5 et nettoie les 3 autres[/COLOR]
Cells(Target.Row, 4) = ""
Cells(Target.Row, 5) = "X"
Cells(Target.Row, 6) = ""
Cells(Target.Row, 7) = ""
Case 6
[COLOR=#2e8b57]' Met un X dans la 6 et nettoie les 3 autres[/COLOR]
Cells(Target.Row, 4) = ""
Cells(Target.Row, 5) = ""
Cells(Target.Row, 6) = "X"
Cells(Target.Row, 7) = ""
Case 7
[COLOR=#2e8b57]' Met un § dans la 7 et nettoie les 3 autres[/COLOR]
Cells(Target.Row, 4) = ""
Cells(Target.Row, 5) = ""
Cells(Target.Row, 6) = ""
Cells(Target.Row, 7) = "§"
End Select
[COLOR=#2e8b57]' Reprotège la feuille[/COLOR]
ActiveSheet.Protect
End Sub