bonjour,
Mettre la poussière sous le tapis n'est jamais une bonne solution.
Met plutôt une condition Target.Count = 1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect, O As Range
If Target.Count = 1 Then
Set isect = Application.Intersect(Target, [CaseaCocherGpr1])
If Not isect Is Nothing Then Target = IIf(Target.Value = Chr(168), Chr(254), Chr(168))
End If
End Sub
A+