Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Classeur As Workbook
Dim Plage As Range
Dim Cel As Range
'si dans la colonne A
If Not Intersect(Target, Range("A:A")) Is Nothing Then
'si pas vide
If Target.Value <> "" Then
'évite la boite de message si déjà ouvert
Application.DisplayAlerts = False
'évite l'erreur si classeur déjà ouvert
On Error Resume Next
Set Classeur = Workbooks.Open(ThisWorkbook.Path & "\Suivi affaires.xlsm")
Application.DisplayAlerts = True
'si ouvert, l'affecte à la variable
If Err.Number <> 0 Then Set Classeur = Workbooks("Suivi affaires.xlsm")
'défini la plage de recherche
With Classeur.Worksheets("Suivi")
Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) 'de A1 à Ax
End With
'effectue la recherche
Set Cel = Plage.Find(Target.Value, , xlValues, xlWhole)
'si trouvé, active le classeur et sélectionne la cellule
'sinon, réactive ce classeur
If Not Cel Is Nothing Then
Cel.Select
Else
ThisWorkbook.Activate
End If
End If
End If
End Sub