Recherche dans tableau avec plusieurs valeurs

Fermé
pgillou Messages postés 49 Date d'inscription lundi 23 août 2010 Statut Membre Dernière intervention 14 octobre 2010 - 13 sept. 2010 à 10:38
Bonjour à tous,

Le code en vb ci-dessous me permet de rechercher une valeur dans un tableau et de copier la ligne j'ai plusieurs valeurs à chercher et je voudrais savoir si il existe une fonction qui permet de fair une énumération de valeur à rechercher.La ligne à modifié selon moi est en gras.

Sub REGROUPA()

Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long

Sheets("REGROUPEMENT A").Activate
NumLig = 0
Col = "B" ' colonne de la donnée non vide à tester
NumLig = 0
With Sheets("carnet de dep a") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value = "MISE HORS SERVICE EPATR B" Or .Cells(Lig, Col).Value Like "VERR.* COND.*" Or .Cells(Lig, Col).Value Like "*-5%*" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(NumLig, 2).Select
ActiveSheet.Paste Link:=True
End If
Next
End With
Columns("K:S").Select
Selection.Delete Shift:=xlToLeft
End Sub
Merci pour vos réponses!