Bonjour el osito,

Voici une macro qui j'espère te conviendra :

Private Sub ChercheTexte()
' Parcourt les Feuilles de la 2ème à la dernière
For sh = 2 To Sheets.Count
  With Sheets(sh).Range("a1:iv65536")
    ' recherche la valeur située en 'A1' sur la première feuille
    Set t = .Find(Sheets(1).Range("a1").Value, LookIn:=xlValues)
    If Not t Is Nothing Then
      ' Si la valeur est trouvée, alors
      ' Active la feuille contenant cette valeur
      Sheets(sh).Activate
      ' Récupère l'adresse de la cellule trouvée et la selectionne
      a = t.Address
      .Range(a).Select
      ' Arrête la recherche
      Exit Sub
    End If
  End With
Next

End Sub

Petite précision :

Si tu saisis ce code dans un module, il te faut remplacer 'Private Sub' par 'Public Sub', autrement tu obtiendras un message d'erreur.

Cordialement.

Et pour accélérer un peu, on peut se contenter de "UsedRange" au lieu de Range("A1:IV65536").

Merci bien de tous ces conseils, en plus avec les commentaires j'ai pu comprendre parfaitement la procédure.

Merci à vous deux

Voici le code final :

Private Sub CommandButton1_Click()
' Parcourt les Feuilles de la 2ème à la dernière
For sh = 2 To Sheets.Count
  With Sheets(sh).UsedRange
    ' recherche la valeur située en 'C7' sur la première feuille
    Set t = .Find(Sheets(1).Range("c7").Value, LookIn:=xlValues)
    If Not t Is Nothing Then
      ' Si la valeur est trouvée, alors
      ' Active la feuille contenant cette valeur
      Sheets(sh).Activate
      ' Récupère l'adresse de la cellule trouvée et la selectionne
      a = t.Address
      .Range(a).Select
      ' Arrête la recherche
      Exit Sub
    End If
  End With
Next


End Sub