Sub SommeBudgets()
Dim lg As Integer
With Sheets("Somme")
.Range("C5:C10").ClearContents
For Each sh In Sheets
If sh.Name Like "budget*" Then
For lg = 5 To 10
.Cells(lg, 3).Value = .Cells(lg, 3).Value + sh.Cells(lg, 3).Value
Next
End If
Next
End With
End Sub