Sub CreeLiens()
Dim i As Long, Ligne As Long
With ThisWorkbook.Worksheets("Index")
For i = 2 To .Range("A65536").End(xlUp).Row
If Application.CountIf(Worksheets("Restaurant locations").Range("A1:A65536"), .Range("A" & i).Value) > 0 Then
Ligne = Application.Match(.Range("A" & i).Value, Worksheets("Restaurant locations").Range("A1:A65536"), 0)
.Hyperlinks.Add Anchor:=.Range("A" & i), Address:="", SubAddress:="'Restaurant locations'!A" & Ligne, TextToDisplay:=.Range("A" & i).Value
Else
.Range("A" & i).Hyperlinks.Delete
End If
Next i
End With
End Sub