Rechercher une cellule d'une feuille "A" dans une feuille "B&quot

http://www.cjoint.com/c/GJylx6NCcIQ

Voici mon excel

Donc en résumé :

Je double clic sur le nom ALSEI dans la feuille "Affaires" et ca me renvoi à la ligne 2, cellule ALSEI dans la feuille "Tableau de surface

J'ai un nouveau problème avec ton code,

Je l'ai copié sur une autre feuille pour faire la même manip, mais n'importe où où je clique, j'ai un
"Erreur d’exécution '13'
Incompatibilité de type"


j'ai gardé le même code, seulement changé le nom des feuilles et des colonnes :

Mon code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B:B")) Is Nothing And Target <> "" Then
On Error GoTo erreur
Dim Ligne As Long
With Sheets("3. DPGF (2)")
Ligne = .Columns(2).Find(Target, , , , xlByColumns, xlPrevious).Row
.Activate
.Range("B" & Ligne).Select
End With
End If
Exit Sub
erreur:
MsgBox "Ce nom n'est pas répertorié"

End Sub

Je te remercie !