Double click dans une cellule

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

Cliquez pour agrandir...