Option Explicit
Sub Onglet_créer()
Dim c As Range
Application.ScreenUpdating = False
For Each c In [c2:c1000]
c.Select
Sheets.Add
On Error GoTo fin
ActiveSheet.Name = c.Value
ActiveSheet.[A1].Value = c.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Sommaire!A1", TextToDisplay:=ActiveSheet.Name
Sheets("Sommaire").Select
c.Cut Destination:=Range("A" & Rows.Count).End(xlUp)(2)
[A1].Sort Key1:=[A2], Header:=xlGuess
Next
fin:
Application.DisplayAlerts = False
If ActiveSheet.Name Like ("Feuil*") Then ActiveSheet.Delete
c.Delete Shift:=xlUp
Application.DisplayAlerts = True
Columns("A:A").EntireColumn.AutoFit
[C2].Select
Application.ScreenUpdating = True
End Sub