Private Sub CommandButton1_Click()
Dim z$, derColonne&, fl As Worksheet
With Sheets("ONGLET POUR NOM ONGLET").Range("E1")
Set fl = .Parent
If IsEmpty(.Cells) Then derColonne = .Row - 1 Else derColonne = fl.Cells(1, fl.Columns.Count).End(xlToLeft).Column + 1
Sheets("ONGLET A COPIER").Copy After:=Sheets(Sheets.Count)
N: z = InputBox("Entrer le nom de l'onglet")
If z <> "" Then
ActiveSheet.Name = z
On Error GoTo 0
fl.Hyperlinks.Add Anchor:=fl.Cells(1, derColonne), Address:="", SubAddress:=z & "!A1", TextToDisplay:=z
fl.Activate
Else
Application.DisplayAlerts = False
ActiveSheet.Delete
.Parent.Activate
Application.DisplayAlerts = True
End If
End With
End Sub