Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'déclaration des variables :
    Dim Trouve As Range, PlageDeRecherche As Range
    Dim Valeur_Cherchee As String, AdresseTrouvee As String
  With Target
  
'    Selection.Borders.LineStyle = xlNone

    Cancel = True
    If .Row = 2 Then
   
'    With Range(Target.Address)
'        With .Borders
'            .LineStyle = xlLineStyleNone
'        End With
'    End With
    
    ' Recherche adresse
        With Sheets("Adresses")
'            On Error Resume Next
            .Activate
'            Set PlageDeRecherche = ActiveSheet.Columns(3)
            Set PlageDeRecherche = .Columns(3)
            Valeur_Cherchee = Target
        'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
            Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
            If Trouve Is Nothing Then
                Set PlageDeRecherche = ActiveSheet.Columns(1)
                Valeur_Cherchee = Target
        'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
                Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
                If Trouve Is Nothing Then Exit Sub
            End If
'            On Error GoTo 0
            Trouve.Select
            Worksheets("Planning").Activate
            reponse = MsgBox("Réunion chez  : " & .Cells(Trouve.Row, 1) & " " & .Cells(Trouve.Row, 2) & vbLf & _
                   "                " & .Cells(Trouve.Row, 4) & vbLf & _
                   "          Tel : " & .Cells(Trouve.Row, 9) & vbLf & _
                   "                " & .Cells(Trouve.Row, 10) & vbLf & _
                   "         Email: " & .Cells(Trouve.Row, 8), vbInformation, "Adresse")
        End With
    'vidage des variables
        Set PlageDeRecherche = Nothing
        Set Trouve = Nothing
        
 '--------------------------------------------------------------------------
 
        Deselect_Cellule
        
'        With Sheets("Planning")
'            ActiveSheet.Shapes("Cmd_Déselection").Visible = True
'            ActiveSheet.Shapes("Cmd_Déselection").Select
'            ActiveSheet.Shapes("Cmd_Déselection").Visible = False
'            .Cells(3, 2).Select
'        End With
        
    End If
'-------------------------------------------------------------------------
' seulement si la feuille a été dévérouillée

    If .Row >= 3 And .Row <= 37 And .Column >= 2 And .Column <= 19 Then
        If .Interior.ColorIndex = 4 Then
            .Interior.ColorIndex = xlNone
            .Value = " "
         Else
            .Interior.ColorIndex = 4
         End If
     End If
     
   End With
   
End Sub