Private Sub Test()
Dim formule As String, adresseCelluleFormule As String, iL As Long, nomOngletConsolidation As String, laFeuille As Worksheet
'nom de l'onglet de consolidation
nomOngletConsolidation = "Bilan"
'formule commune à tout les onglet (sauf celui de consolidation)
formule = "=MOYENNE(A2:A20)"
'adresse de la cellule ou sera inscrite la formule
adresseCelluleFormule = "B1"
With ThisWorkbook.Sheets(nomOngletConsolidation)
'boucler sur tout les onglets de du classeur
For Each laFeuille In ThisWorkbook.Sheets
'vérifier que ce n'est pas l'onglet de consolidation
If Not laFeuille.Name = nomOngletConsolidation Then
'saisir en cellule B1 la formule
laFeuille.Range(adresseCelluleFormule).FormulaLocal = formule
'incrémenter la ligne d'écriture sur l'onglet de consolidation
iL = iL + 1
'écrire une formule sur l'onglet de consolidation renvoyant à la
'cellule de la feuille courante où on vient de saisir la formule
.Range("A" & iL).Value = laFeuille.Name
.Range("B" & iL).FormulaLocal = "='" & laFeuille.Name & "'!" & adresseCelluleFormule
End If
Next laFeuille
End With
End Sub