Private Sub CommandButton1_Click()
Dim s As Worksheet, c As Range
Range("F1:G300").Delete
x = 1
For Each s In ActiveWorkbook.Sheets
If s.Name <> "Accueil" Then
x = x + 1
Cells(x, 6) = s.Name
Set c = s.Range("B2:B" & s.Range("B65000").End(xlUp).Row)
Cells(x, 7) = Application.Sum(c)
End If
Next
Range("F1").Value = "Mois"
Range("G1").Value = "Total Mois"
Range("F1:G1").Font.Bold = True
Range("F:G").HorizontalAlignment = xlCenter
' Tris les lignes
Range("F1").Sort key1:=Range("F2"), Order1:=xlAscending, Header:=xlGuess
End Sub