Execution de macro par clic sur une cellule

Bonsoir,

Je voudrais pouvoir exécuter une macro par simple clic dans une cellule que j'aurai choisi. Est-ce possible?

Jusqu'à maintenant je n'ai seulement trouver que comment exécuter une macro via un objet (bouton, image etc...).

Les macros que je voudrais faire fonctionner via simple clic dans une cellule sont uniquement des macros de filtrage. Je vous les donnes si-dessous si cela peut vous aider.

Sub Encours()
On Error Resume Next
ActiveSheet.ShowAllData
'
' Encours Macro
'

'
    ActiveSheet.Range("$A$16:$I$400").AutoFilter Field:=8, Criteria1:= _
        "En cours"
End Sub
Sub Enpause()
On Error Resume Next
ActiveSheet.ShowAllData
'
' Enpause Macro
'

'
    ActiveSheet.Range("$A$16:$I$400").AutoFilter Field:=8, Criteria1:= _
        "En pause"
End Sub
Sub Abandon()
On Error Resume Next
ActiveSheet.ShowAllData
'
' Abandon Macro
'

'
    ActiveSheet.Range("$A$16:$I$400").AutoFilter Field:=8, Criteria1:="Abandonné"
End Sub
Sub Terminée()
On Error Resume Next
ActiveSheet.ShowAllData
'
' Terminée Macro
'

'
    ActiveSheet.Range("$A$16:$I$400").AutoFilter Field:=8, Criteria1:= _
        "=Terminé", Operator:=xlOr, Criteria2:="=Terminée"
End Sub

ET

Sub Finis()
On Error Resume Next
ActiveSheet.ShowAllData
'
' Finis Macro
'

'
    ActiveSheet.Range("$A$16:$I$404").AutoFilter Field:=9, Criteria1:=Array( _
        "En cours", "En pause", "Finis"), Operator:=xlFilterValues
End Sub
Sub Envisionnage()
On Error Resume Next
ActiveSheet.ShowAllData
'
' Envisionnage Macro
'

'
    ActiveSheet.Range("$A$16:$I$404").AutoFilter Field:=9, Criteria1:=Array( _
        "En visionnage", "Film(s) à regarder", "OAV(s) à regarder", _
        "OAV(s) et Film(s) à regarder"), Operator:=xlFilterValues
End Sub
Sub Acontroler()
On Error Resume Next
ActiveSheet.ShowAllData
'
' Acontroler Macro
'

'
    ActiveSheet.Range("$A$16:$I$404").AutoFilter Field:=9, Criteria1:= _
        "A contrôler"
End Sub

Evidemment une cellule pour chaque macro mais bon si vous pouviez me donner le code pour une je pense que je pourrai le re produire moi même pour les autres Voila j'espère que c'est faisable car sur le net j'ai uniquement trouvé une exécution de macro via cellule mais en événementiel... Merci d'avance et a très vite.

Bonjour

Avec Click droit (Code de Feuille)

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'ici A1, tu peux mettre autre chose, cellule ou plage comme A1:A100
    If Not Intersect(Target, Range("A1")) Is Nothing And Target.Cells.Count = 1 Then
        Call Encours
        Cancel = True
    End If

Cordialement

Parfait c'est ce que je recherchai!!! C'est clic droit mais je ne ferai pas le difficile sa me va Merci beaucoup réponse bonne rapide "j'aime"! A une prochaine peut être et bonne continuation.