Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Teste de la valeur de la cellule
If Target.Value Like '[oý]' Then
Target.Value = IIf(Target.Value = 'o', 'ý', 'o')
'Empêche la sélection de la cellule après le double-clic
Cancel = True
End If
End Sub