Public Function QteLave(Periode As String, Tabl As Range) As Long
Dim i As Integer, arr As Variant
arr = Tabl
For i = LBound(arr, 2) To UBound(arr, 2)
Select Case Periode
Case "Linge lavé par jour": QteLave = QteLave + Tabl(1, i) * (Tabl(2, i) * Tabl(4, i) + Tabl(3, i) * Tabl(5, i)) / (Tabl(4, i) + Tabl(5, i))
Case "Linge lavé par semaine": QteLave = QteLave + Tabl(1, i) * (Tabl(2, i) * Tabl(4, i) + Tabl(3, i) * Tabl(5, i))
Case "Linge lavé par mois": QteLave = QteLave + Tabl(1, i) * (Tabl(2, i) * Tabl(4, i) + Tabl(3, i) * Tabl(5, i)) * 4.33333
Case "Linge lavé par an": QteLave = QteLave + Tabl(1, i) * (Tabl(2, i) * Tabl(4, i) + Tabl(3, i) * Tabl(5, i)) * Tabl(6, i)
End Select
Next i
End Function