Double clic en fonction de cellule

[tactic6]

Bonjour le forum
j'essaie de rajouter une commande sur un double clic mais je ne parviens pas a obtenir le résultat voulu
j'aimerais qu'en fonction de la cellule du double clic l'userform correspondant s'affiche
le code ci dessous va tres bien il m'affiche l'userform "Recherche"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False

Dim Table() As String

If Target.Column = 2 Then
Worksheets("Recherche").Select
    If TypeName(Selection) = "Range" Then
        UserForm2.Show
Worksheets("SAISIE").Select
    End If
    End If
End Sub

j'aimerais y intégrer cette ligne qui si double clic sur la cellule "G5" l'userform "Calendar" apparaisse
Comment faire SVP

Merci

If Target.Address = "$G$5" Then Calendar.Show

[pierrejean]

bonjour tactic6

A tester

.....
If Target.Column = 2 Then
     Worksheets("Recherche").Select
    If TypeName(Selection) = "Range" Then
        UserForm2.Show
        Worksheets("SAISIE").Select
    End If
Else
 If Target.Address = "$G$5" Then Calendar.Show
End If
....

[Pierrot93]

Bonjour Tactic

essaye en modifiant comme suit :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Table() As String
If Target.Address = "$G$5" Then Calendar.Show: Cancel = True
If Target.Column = 2 Then
    Worksheets("Recherche").Select
    If TypeName(Selection) = "Range" Then
        UserForm2.Show
        Worksheets("SAISIE").Select
    End If
    Cancel = True
End If
End Sub

bonne journée
@+

Edition : Bonjour PierreJean, désolé pour la collision...

[tactic6]

Merci a tous
en fait j'ai toujours le meme probleme qui est LA FUSION DES CELLULES
c'est une vrai saloperie qui sabote pas mal de macro
j'ai défusioné et maintenant c'est OK
Merci encore pour votre aide
Tres bonne journée à tous

[tactic6]

Re
un petit renseignement supplémentaire S.V.P

If Target.Column = 2 Then

comment peut on limiter la plage aux cellules B15 à B52 ?
Merci

[Pierrot93]

Re

regarde le code ci-dessous :

If Not Intersect(Target, Range("B15:B52")) Is Nothing Then
    'ton code
End If

@+

[tactic6]

Merci Pierrot