Somme de cellules trouvant sur plusieurs feuilles

Bonjour et Ramadan Moubarak à tous

bon voilà, je veux sommer plusieurs valeurs qui se trouvent sur la même cellule.
Les cellules se trouvent sur plusieurs feuilles.

Exemple:

Sheet1: range ("B1).value=6
Sheet2: range ("B1).value=10
Sheet3: range ("B1).value=13
Sheet4: range ("B1).value=5
......
....
....
Sheetn: range ("B1).value=20



le résultat doit se faire sur une MSGBOX genre
msgbox("la somme des cellules est de " & nbr)

Merci pour le tuyau!!

J'ai fais un petit code mais ça me génère des problèmes:

Private Sub Workbook_Open()
Dim Nb As Integer
Dim a As Integer
Dim b
Dim c

Nb = Worksheets.Count
For a = 1 To Nb
Sheets("sheet(a)").Select
c = Range("B1").Value
b(a + 1) = c + b(a)
Next a

MsgBox (" l'opération de contrôle des installations est arrivée à " & b(a) & "postes")

End Sub