Supprimer lignes ne contenant pas certains nombres

Bonjour à tous,

Je suis confronté à un problème.

J'ai un fichier Excel contenant beaucoup d'information et je souhaiterai ne garder qu'un certain nombre de lignes.

Voici ce que je voudrai faire : Supprimer toutes les lignes qui ne contiennent pas dans leur colonne A soit 100 soit 200 soit 300.

J'ai trouvé cette solution sur ce forum :

Sub SuppNonBIO()
Dim I As Integer
For I = [A65000].End(xlUp).Row To 1 Step -1
If Cells(I, 1).Find("100") Is Nothing Then Rows(I).Delete
Next I
End Sub

Mais elle n'est valable que pour un chiffre et de plus elle conserve tout ce qui contient 100 c'est à dire que si la valeur est 1100 ou 1002, la macro la conserve et ça ne m'arrange pas.

Quelqu'un aurait-il une solution à proposer ?

Merci d'avance !

Je pense avoir trouvé une solution qui fonctionne :

Sub ExtractArticle()
Dim I As Integer
For I = [A65000].End(xlUp).Row To 1 Step -1
If Cells(I, 1) <> "100" And Cells(I, 1) <> "200" And Cells(I, 1) <> "300" Then Rows(I).Delete
Next I
End Sub