activer une feuille à partir de son nom ou d'une valeur de cellule

Bonjour à tous,
voilà j'ai un classeur avec plusieurs feuilles et seulement que quelques une m'intéressent.. les feuilles qui m'intéressent ont en commun la valeur de la cellule A2 et une partie de leur nom de feuille en commun (partie commune = flore)
le soucis c'est que j'essai de faire une boucle pour que une fois que la macro fini son application sur la première feuille , elle aille sur la nouvelle feuille...

voici mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub MacroR(CL1 As ThisWorkbook, FL1 As Worksheet, Fichier)   Dim CL2 As Workbook 'classeur de données originales Dim FL2 As Worksheet 'feuille de données originales Dim FL4 As Worksheet   Application.ScreenUpdating = False Application.DisplayAlerts = False   Set CL2 = Workbooks.Open(Fichier) For Each FL2 In CL2.Worksheets If Cells(2, 1) = "Relevé" Then Set FL4 = ActiveSheet End If   'suite du script   next End sub

---

le problème c'est que çà ne me prend réellement et me renvoie que la dernière feuille.
Un peu d'aude svp

Bonjour

Sans test, je tenterais

Code:

---

1 2 3 4 5

Set CL2 = Workbooks.Open(Fichier) For Each FL2 In CL2.Worksheets If FL2.Cells(2, 1) = "Relevé" Then Set FL4 = FL2 End If

---

merci pour ta réponse
ta solution me paraît bien mais je viens de l'essayé et j'ai l'impression que
set FL4 = FL2
marche pas car quand je fais appel à FL4 par la suite çà bug...
quand je fais avancé la macro pas à pas je remarque qu'il ne prend pas en compte : set FL4 = FL2
et passe directement à end if...
as-tu une idée?

Test en remplacant

Code:

---

Set FL4 = FL2

---

par

Code:

---

FL2.select

---

çà marche, je te remercie... en fait c'était surtout moi qui me plantait et ne mettait pas le end if ainsi que le next au bon endroit...