Recherche cellule dans plusieurs feuilles (VBA)

Sub WorksheetLoop()
  Dim sPath As String
  Dim WbkG As Workbook
  Dim ShtS As Worksheet
  Dim I As Integer
  ' Si la macro est dans le classeur de suivi (logiquement)
  ' Définir la feuille de travail
  Set ShtS = ThisWorkbook.Sheets("Suivi")
  ' Chemin d'accès
  sPath = "C:\Dossier\sous-dossier\"
  ' Ouvrir et définir le classeur de Gestion
  Set WbkG = Workbooks.Open(sPath & "Gestion.xlsx")
  ' Pour chaque feuille
  For I = 1 To WbkG.Sheets.Count
    ' Si le contenu de la cellule B1
    If WbkG.Sheets(I).Range("B1").Value = ShtS.Range("B1").Value Then
      ' Copier/coller les données
      WbkG.Sheets(I).Range("A19:O19").Copy Destination:=ShtS.Range("A19")
      ' Une seule occurence normalement, alors on sort de la boucle
      Exit For
    End If
  Next I
  ' Effacer les variables objet pour libérer la mémoire
  Set Sht = Nothing : Set WbkG = Nothing
End Sub