Afficher cellule d'un onglet à partir du nom situé dans une cellule

'Sélectionne la cellule A154 de la Feuil1 et "Scroll" l'écran
Sub AllerA()
Application.GoTo Reference:=Worksheets("Feuil1").Range("B154"), Scroll:=True
End Sub

Sub Macro1()
Dim NB As Integer 'déclare la variable NB (NomBre)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TBO() As Variant 'déclare la variable TBO (TaBleau des Onglets)

NB = Sheets.Count 'définit le nombre d'onglet NB
ReDim TBO(1 To NB, 1 To 2) 'redimensionne le tableau des onglets TBO
For I = 1 To NB 'boucles sur tous les onglets I du classeurs
    TBO(I, 1) = Sheets(I).Name 'recupère le nom de l'onglet de la boucle
    TBO(I, 2) = Sheets(I).Range("g3").Value 'récupère la valeur de la cellule G3 de l'onglet de la boucle
Next I 'prochain onglet de la boucle
Sheets(1).Range("A2").Resize(NB, 2).Value = TBO 'renvoie le tableau TBO dans la cellule A2 du premier onglet du classeur
End Sub

Sub Snamelist()
Dim i As Integer
    Range("B3").Select
    For i = 1 To Sheets.Count
        Cells(i + 2, 2) = Sheets(i).Name
        Cells(i + 2, 3) = Sheets(Sheets(i).Name).Range("G3")
    Next i
End Sub