Sub test1()
Const str1 As String = "APVD"
Const str2 As String = "OnGo"
Dim cel As Range
For Each cel In Sheets("Feuil1").Range("C2:C" & Sheets("Feuil1").Range("C65536").End(xlUp).Row)
Select Case cel.Value
Case str1, str2
cel.Offset(0, 7).Value = "Active"
Case Else
cel.Offset(0, 7).Value = "Non-Active"
End Select
Next cel
End Sub