Sub traitement()
Dim i As Integer
For i = 2 To 10000
If Cells(i, 1) <> "" And Cells(i, 1) <> "(vide)" And Cells(i, 1) <> "Total général" Then _
Cells(i, 3) = IIf(Cells(i, 1) Like ("*2L*") Or Cells(i, 1) Like ("*3L*") Or Cells(i, 1) Like ("*4L*") _
Or Cells(i, 1) Like ("*5L*") Or Cells(i, 1) Like ("*6L*") Or Cells(i, 1) Like ("*7L*"), 0.5, 1)
Next
End Sub