code de recherche fonctionnant pour plusieurs feuilles

Bonjour,

J'ai ce code donn=E9 par MDenis qui me permet de chercher dans une zone d=
=E9finie d'une feuille nomm=E9e.
Je voudrais utiliser le m=EAme code mais qu'il fonctionne sur plusieurs feu=
illes avec des zones diff=E9rentes d'une feuille =E0 l'autre.

Est-ce possible?

Voici le code:

Merci pour les conseils.

JP

'D=E9claration des variables dans le haut du formulaire
Dim LastAdr As String
Dim X As Variant
Dim Debut As String
'-------------------------------------------
Sub Nouvelle_Recherche()

Dim Trouve As Range
Dim Sh As Worksheet, Adr As String

LastAdr =3D "": X =3D ""
Worksheets("Fournisseurs").Activate 'Nom feuille =E0 adapter
X =3D Worksheets("fournisseurs").TextBox13.Object.Value ' Application.Input=
Box(Prompt:=3D"Valeur recherch=E9e.", Type:=3D3)
If X =3D False Then Exit Sub

Call Recherche(X)

End Sub

'-------------------------------------------
Sub Touver_La_Prochaine_Valeur()
If X =3D "" Then Exit Sub
Worksheets("Fournisseurs").Activate

Call Recherche(X)

End Sub

'-------------------------------------------
Sub Recherche(Expression As Variant)
Dim X As Variant, Trouve As Range, Sh As Worksheet
Set Sh =3D ActiveSheet
With Range("D25:O226")
If LastAdr =3D "" Then LastAdr =3D "D25"
Set Trouve =3D .Find(what:=3DExpression, after:=3DRange(LastAdr), _
LookIn:=3DxlValues, lookat:=3DxlPart, SearchDirection:=3DxlNext, _
SearchOrder:=3DxlByRows)
If Not Trouve Is Nothing Then
If LastAdr =3D "D25" Then
Debut =3D Trouve.Address
End If
Trouve.Select
If LastAdr <> "D25" And Debut =3D Trouve.Address Then
MsgBox "Nous sommes revenus au point de d=E9part."
End If
LastAdr =3D Trouve.Address

End If
End With
End Sub