Sub Macro1()
Dim OF As Worksheet
Dim OL As Worksheet
Dim TV As Variant
Dim I As Integer
Dim CL As Byte
Set OF = Worksheets("FORMATION PERMANENT")
Set OL = Worksheets("Liste")
TV = OL.Range("A1").CurrentRegion
Select Case OF.Range("D5").Value
Case "Spin On avant", "Spin On arrière"
CL = 5
Case "Air Filter avant", "Air Filter arrière"
CL = 6
Case "Green cartridge", "eRCV", "Direct Flow"
CL = 7
End Select
For I = 2 To UBound(TV, 1)
If OF.Range("G11") = TV(I, 1) And OF.Range("G13") = TV(I, 2) And TV(I, CL) = 1 Then OL.Cells(I, CL).Value = 2: Exit Sub
Next I
End Sub