Bonjour Kit,
J'y crois pas trop, alors à tout hasard, essaye avec ce code VBA :
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Color0: Cancel = True
Dim couleurs()
couleurs = Array(RGB(0, 255, 0), RGB(255, 0, 0), RGB(204, 255, 204), RGB(255, 229, 229), RGB(255, 255, 255))
Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 5)
Exit Sub
Color0:
Target.Interior.color = couleurs(0)
End Sub
Note : j'ai remonté On Error Goto
ainsi que le 1er Cancel = True
; j'ai supprimé le 2ème Cancel = True
(qui est devenu inutile car le 1er sera toujours exécuté, même si une erreur se déclenche par la suite) ; d'autre part, je déconseille de nommer une étiquette (label de branchement) avec un mot clé réservé du VBA : Color étant un keyword, j'ai nommé l'étiquette Color0 car en cas d'erreur, tu utilises la 1ère couleur du tableau couleurs() d'indice 0.
Autre piste : en dehors d'Excel, au niveau du paramétrage de ton écran tactile, régler la fréquence de déclenchement du double-clic ; sur un PC avec Windows, c'est dans : Panneau de configuration, Souris :
dhany