Option Explicit
Sub Test()
Dim DerL&, Lig&
DerL = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
For Lig = 10 To DerL
Range("C" & Lig).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Range("A" & Lig).Text & "!" & Range("B" & Lig).Text, TextToDisplay:=Range("A" & Lig).Text
Next Lig
End Sub