Bonsoir
J'ai des soucis pour ouvrir ton fichier (plantage sans passer par la case départ)
Remplace l'évènement par le double clic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' Ta macro
End Sub
Ne pas oublier de mettre Cancel = True si c'est une cellule "autorisée"