Sub Somme()
Application.ScreenUpdating = False 'pour que ca soit plus rapide
Dim CpT As Integer
Dim ws As Worksheet
For x = 1 To 15 'on boucle sur les lignes ligne de 1 à 15
For y = 1 To 15 'on boucle sur les colonnes colonne de 1 à 15
For Each ws In Worksheets 'on boucle sur les feuilles
If ws.Name <> "Bilan" And ws.Name <> "Menu" Then
CpT = CpT + ws.Cells(x, y)
End If
Next ws
Sheets("Bilan").Cells(x, y) = CpT
CpT = 0 'on réinitialise le compteur
Next y
Next x
End Sub