Excécuter macro par double clic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'condition : si l'intersection de la cible et de la plage A12:A30 n'est pas vide
'autrement dit, si le double clic de fait dans la plage A12:A30
If Not Application.Intersect(Target, Range('A12:A30')) Is Nothing Then
Call Créer_choix 'appelle la macro Créer_choix
Cancel = True 'évite le mode édition lié au double clic
End If 'fin de la condition

End Sub

Cliquez pour agrandir...