Sub ficheNouv()
Dim i As Integer, Adr As String
For i = 4 To Sheets("Liste").Range("A" & Rows.Count).End(xlUp).Row
Sheets("vierge").Copy Before:=Sheets("Vierge")
ActiveSheet.Name = Sheets("Liste").Cells(i, 1)
ActiveSheet.Range("D1").Value = Sheets("Liste").Cells(i, 1)
Adr = "'" & ActiveSheet.Name & "'!A1"
Sheets("Liste").Hyperlinks.Add Anchor:=Sheets("Liste").Cells(i, 1), Address:="", SubAddress:= _
Adr, TextToDisplay:=ActiveSheet.Name
Next
End Sub