Sub MACRo_OK_Bis()
tab_lo = Split("C,R,APS,M,AT", ",")
For i = Sheets("Feuil1").[B65536].End(xlUp).Row To 5 Step -1
If InStr(1, Cells(i, 3).Value, tab_lo(0)) = 0 _
And InStr(1, Cells(i, 3).Value, tab_lo(1)) = 0 _
And InStr(1, Cells(i, 3).Value, tab_lo(2)) = 0 _
And InStr(1, Cells(i, 3).Value, tab_lo(3)) = 0 _
And InStr(1, Cells(i, 3).Value, tab_lo(4)) = 0 Then
Cells(i, 2).Copy Sheets("Feuil2").Cells(i, 2)
End If
Next i
End Sub