Sub Macro10()
'
' Macro10 Macro
'
Dim O As Worksheet
nb = 0
'en colonne A, liste tous les onglets sauf l'onglet "Base"
For Each O In Worksheets
If O.Name <> "Base" Then
Range("A65536").End(xlUp).Offset(1, 0) = O.Name
nb = nb + 1
End If
Next O
'créer la formule
formule = "=SOMME(INDIRECT(""'""&A3 &""'!E:E""))"
'l'affecte à la cellule B3
Range("B3").FormulaLocal = formule
'puis la recopie jusqu'en bas
Range("B3").AutoFill Destination:=Range("B3:B" & nb + 2)
End Sub