Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub ' Si plusieurs cellules on sort
If Not Intersect(Target, Range("O2:Q13")) Is Nothing Then ' On définit la zone de travail
If Target = "VRAI" Then Target = "FAUX" Else Target = "VRAI" ' On traite la valeur
End If
Fin:
End Sub