Sub Demultiplier()
Dim cellule As Range
Dim place As Worksheet
Set place = Feuil1
With Feuil1
For Each cellule In .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count, 1)).Cells
Sheets("Modèle").Copy After:=place
ActiveSheet.Name = cellule.Value
Set place= ActiveSheet
ActiveSheet.Cells(1, 2) = cellule.Value
Next cellule
End With
End Sub