[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...