Sub test()
Dim x As String
Application.ScreenUpdating = False
x = ("OPA98S SO340 B8 SO340 B10 SO340 B12 SO340 B14 SO340 B16 SO340 B18 SO340 B20 SO340 B24 SO340 B30")
With Sheets("COMMANDES")
For i = .Cells(.Rows.Count, "g").End(xlUp).Row To 9 Step -1
If InStr(x, .Cells(i, "g")) = 0 Then .Rows(i).Delete
Next
End With
End Sub