Copie conditionnelle de données

Sub Recopie()
Dim cel As Range, ref As Range
[COLOR="Red"]Range("E:F").ClearContents[/COLOR]
For Each cel In Range("B1", Range("B65536").End(xlUp))
Set ref = Range("H:H").Find(cel, LookIn:=xlValues, LookAt:=xlWhole)
If Not ref Is Nothing Then
cel.Offset(, 3).Resize(, 2) = ref.Offset(, 3).Resize(, 2).Value
End If
Next
End Sub

Sub Recopie()
Dim cel As Range, plage As Range, lig As Variant
Range("E:F").ClearContents
Set plage = Range("H1", Range("H65536").End(xlUp)) 'pour la recherche
For Each cel In Range("B1", Range("B65536").End(xlUp))
[COLOR="Red"]lig = Application.Match(cel, plage, 0)[/COLOR]
If IsNumeric(lig) Then
cel.Offset(, 3).Resize(, 2) = Range("K" & lig).Resize(, 2).Value
End If
Next
End Sub