Bonjour et bienvenue sur le forum
Essaie cette macro :
Dim f
Sub Macro1()
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
For Each f In Worksheets
If f.Name <> ActiveSheet.Name Then
Range("E77").Value = Range("E77").Value + f.Range("E77")
End If
Next f
End Sub