Bonjour à toutes et à tous,

Me voilà à nouveau avec un souci que je n'arrive pas à résoudre :

J'ai la macro suivante qui m'a été donné et que j'ai pu modifier avec un ami :
Code :
Sub rechercher()
Dim rgZoneRecherche As Range, rgLastzoneCell As Range
Set rgZoneRecherche = Sheets("Repondeurs").Range(ZoneRecherche)
With rgZoneRecherche.Areas(rgZoneRecherche.Areas.Count)
Set rgLastzoneCell = Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1)
End With
On Error Resume Next
Set lastCell = rgZoneRecherche.Find(What:=Quoi, _
After:=IIf(lastCell Is Nothing, rgLastzoneCell, lastCell), _
LookIn:=IIf(Valeur, xlValues, xlFormulas), _
LookAt:=IIf(Totalite, xlWhole, xlPart), _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=Casse, SearchFormat:=False)
On Error GoTo 0
Application.EnableEvents = False
If Not lastCell Is Nothing Then
lastCell.Select
Else
Sheets("Repondeurs").Range(ZoneCliquer).Select
End If
Application.EnableEvents = True
End Sub

Ce code fonctionne parfaitement mais quand je recherche une info (c'est un n° de tel) qui est dans une autre feuille, il n'y va pas !!!

Je pense que ce le code à modifier est le suivant :
Code :
Set rgZoneRecherche = Sheets("Repondeurs").Range(ZoneRecherche)

et qu'il faut peut-être remplacer "Repondeurs" par un truc qui lui indique "tout le classeur" mais je n'arrive pas à trouver.

Je joins un fichier test.

Merci pour votre aide précieuse,
Amicalement,
Lionel,