Contenu dans une plage

Bonjour,

En utilisant les réponses à différents sujets, j'aboutis au code suivant qui fonctionne :

Sub CopieDesCellules()

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

Sheets("DOC").Select ' feuille de destination
Cells.Select
Selection.ClearContents

Col = "H" ' colonne de la donnée non vide à tester
NumLig = 0
With Sheets("Liste contetieux à coller") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value = "68" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(NumLig, 1).Select
ActiveSheet.Paste
End If
Next
End With

End Sub

Cependant je souhaite qu'au lieu d'avoir If .Cells(Lig, Col).Value = "68" Then, mettre une plage de cellule contenu dans une autre feuille. j'étais partis sur :
If .Cells(Lig, Col).Value = sheets("DOC").Range(B2:T2) Then mais cela ne fonctionne pas. Auriez vous une solution ?

Merci d'avance pour votre aide