Fontion si

Sub compte_total()
    RowCount = Cells(Cells.Rows.Count, "c").End(xlUp).Row
    For k = 2 To RowCount
        nbrcolis = Range("D" & k).Value
        coutcolis = nbrcolis * 7.25
        nbrsac = Range("E" & k).Value
        coutsac = nbrsac * 1.2
        nbrpiece = Range("F" & k).Value
        If nbrpiece = 0 Then
        Range("f" & k).Value = 1
        nbrpiece = 1
        End If
        couttotal = (coutcolis + coutsac) * nbrpiece
        If couttotal <= 18 Then
            Range("H" & k).Value = 18
        Else
            Range("H" & k).Value = couttotal
        End If
    Next
End Sub