Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
' Si la colonne est A alors
If .Column = 1 Then
' Quel ligne appartient la cellule
Select Case .Row
Case 2
Call Macro1
Case 5
Call Macro2
Case 8
Call macro3
Case Else
Call macro4
End Select
End If
End With
End Sub