Sub FEUILLES()
Dim cel As Range
Sheets("LISTE").Activate
On Error Resume Next 'si le nom d'une feuille est déjà utilisé
For Each cel In Range("A4", Range("A65536").End(xlUp))
If cel <> "" Then
Sheets("Modele").Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = cel
cel.Offset(, 1) = Worksheets(Worksheets.Count).Name 'à quoi ça sert ??
End If
Next
End Sub