Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
Dim Arr(), X As Variant, GestionErreur As String
On Error GoTo GestionErreur
Application.EnableEvents = False
Select Case Target.Address
Case Is = Range("E24").Address
Target.Value = IIf(Target.Value = "Oui", "Non", "Oui")
Case Is = Range("F28").Address
Arr = Array("Journée", "Équipe", "Autres")
X = Application.Match(Target, Arr, 0) + 1
If X > 3 Then X = 1
Target = Arr(X - 1)
Case Is = Range("M3").Address
Arr = Array("PSE", "SEFIP", "PSAP", "ARSE", "PSEM")
X = Application.Match(Target, Arr, 0) + 1
If X > 5 Then X = 1
Target = Arr(X - 1)
End Select
Application.EnableEvents = True
Exit Sub
GestionErreur:
Err.Clear
X = 1
Resume Next
End Sub