Arrondi supérieur et sommeprod

Bonjour,

Ci-joint un fichier pour expliquer ma demande.

Merci d'avance.

Feever

Bonjour,

Sub Totaux()
    Dim j As Long
    Application.ScreenUpdating = False
    With Sheets("CesDom")
        For j = 2 To 157 Step 12
            .Cells(j, 11) = WorksheetFunction.RoundUp(WorksheetFunction.SumProduct _
             (.Cells(j + 1, 7).Resize(11), .Cells(j + 1, 11).Resize(11)), 0)
        Next j
    End With
End Sub

Cordialement.

Je te remercie (ça m'ennuyait de voir les centimes d'euros !)

Feever