Sub test()
Dim Cellule As Range
Set Cellule = Sheets("Tableau").Range("B:B").Find(Sheets("Générateur de liens").Range("E2"), LookAt:=xlWhole)
If Not Cellule Is Nothing Then
Sheets("Tableau").Hyperlinks.Add Anchor:=Cellule, Address:= _
Sheets("Générateur de liens").Range("H6").Value
End If
End Sub