Sub Test()
Dim PlgSrc As Range, PlgCbl As Range, LCbl As Long, LSrc As Long
'workbooks.open etc.
With ActiveWorkbook.Worksheets("Sheet2")
Set PlgSrc = .Range("A1:B" & .Range("A65000").End(xlUp).Row)
End With
With ThisWorkbook.Worksheets("Sheet1") ' ou bien With Sheet1 tout simplement
Set PlgCbl = .Range("A1:B" & .Range("A65000").End(xlUp).Row)
End With
For LCbl = 1 To PlgCbl.Rows.Count
On Error Resume Next
LSrc = WorksheetFunction.Match(PlgCbl(LCbl, 1).Value, PlgSrc.Columns(1), 0)
If Err Then LSrc = 0
On Error GoTo 0
If LSrc > 0 Then
PlgCbl(LCbl, 2).Formula = "=HYPERLINK(""" & PlgSrc(LSrc, 2).Value & """)"
Else
PlgCbl(LCbl, 2).ClearContents
End If
Next LCbl
'activeworkbook.Close savechange:=false
End Sub