faire la sommes des colonnes des toutes les feuilles

Sub Recap()
Dim k%, i%
Dim Total As Double

For k = 2 To Sheets.Count

With Sheets(k)
For i = 8 To .Range("F65536").End(xlUp).Row

Total = Total + .Cells(i, 6)
Next i
End With
Next k
Sheets("Budget").Cells(7, 3) = Total
End Sub

Cliquez pour agrandir...

Sub Recap()
Dim WS As Worksheet
Dim i%
Dim Total As Double
For Each WS In ThisWorkbook.Worksheets ' Teste toute les feuilles du classeur
If WS.Name <> "Budget" Then
For i = 1 To WS.Range("F65536").End(xlUp).Row
Total = Total + WS.Cells(i, 6)
Next i
End If
Next
Sheets("Budget").Cells(7, 3) = Total
End Sub

Cliquez pour agrandir...