Comparer cellule avec plage vb

Bonjour

Dim plage As Range
Dim cel

St plage = Range("D3:D81")
'....
For Each cel In plage
   If cel.Value = .Cells(Lig, Col).Value Then
   'blabla ..
   End If
Next cel

'....

;o)

Bonjour,
Essaies:

if application.countif(range("D3:D80"),cells(lig,col))>0 then

Merci pour ta réponse écoute rien ne se passe je te donne le code complet:

Sub REGROUPB()

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

Sheets("REGROUP B").Activate 'feuille de destination
NumLig = 0
Col = "B" ' colonne feuille source à parcourir
NumLig = 0
With Sheets("carnet de dep a") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If Application.CountIf(Range("D3:D81"), Cells(Lig, Col)) Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(NumLig + 127, 2).Select
ActiveSheet.Paste Link:=True
End If
Next
End With

End Sub

Merci de ton aide!

Je te remercie ,je teste mais toujours pas de résultat le décalage de colonne est voulu je prend compte de tes remarques.

C'est vraiment cette ligne qui pose problème il faut que je trouve pour l'appliquer à une plage une idée?

If .Cells(Lig, Col).Value = Range("D121").Value Then

Merci

Salut Polux31

J'ai juste un problème avec St plage marche pas peut tu m'aider?

Merci

Désolé d'abuser mais ca ne fonctionne pas n'ya til pas une fontion à ton connaissance permettant de dire:
Si .Cells(Lig, Col).Value est égal à une des valeurs de la plage alors copier ligne.

Merci