Comparaison feuilles et cellule active

Bonsoir

j'ai juste un petit soucis de formulation , en gros je dois comparer le nom de chacune de mes feuilles d'un classeur B à une cellule

active d'une feuille donnée se trouvant dans le classeur A (ouvert) ,si il y a correspondance on sélectionne la feuille en question dans B , j'ecris donc :

Workbooks.Open Filename:=chemin & "\B.xls"
          For Each feuille In Sheets
                   If feuille.Name = Workbooks("A").Sheets("Feuil1").ActiveCell.Offset(0, 1).Value Then k = feuille.Index
           Next
                     If k > 0 Then
                       Sheets(k).Activate
                     End If

le soucis est que cette formulation ne semble pas marcher , avec une erreur pointée sur la ligne :

If feuille.Name = Workbooks("A").Sheets("Feuil1").ActiveCell.Offset(0, 1).Value Then

accompagnée du message erreur 438 "proprieté non gerée"

je ne vois pourtant pas ce qui cloche en ayant pas mal cherché , ....toute aide ou indication serait sympa

Encor merci par avance .

Cordialement

Bonsoir

Tu ne peux pas avoir d'ActiveCell sur une feuille qui n'est pas au 1er plan

Récupère le contenu avant d'ouvrir le classeur B

Sub Test()
Dim NomFeuille As String

  ' Il faut que ce soit la Feuil1 de sélectionnée
  NomFeuille = ActiveCell.Offset(0, 1).Value
  Workbooks.Open Filename:=chemin & "\B.xls"
  For Each feuille In Sheets
    If feuille.Name = NomFeuille Then k = feuille.Index
  Next
  If k > 0 Then
    Sheets(k).Activate
  End If

End Sub

Merci infiniment Banzai ! ...une tres belle solution ! ...