Sub creer_feuille()
Dim i As Integer
Dim nom As String
Dim numero As String
pour l 'entier i qui à la valeur 2 à la première boucle, et 1000 à la dernière
For i = 2 To 1000
'Si la cellule B1 (ou B15, B600, etc...) de la feuille Liste est non-vide alors
If Sheets("Liste").Range("B" & i).Value <> "" Then
'On fixe les variables nom et numero
nom = Sheets("Liste").Range("B" & i).Value 'par exemple si i = 5, nom = B5
numero = Sheets("Liste").Range("A" & i).Value 'idem mais en colonne A, soit ici A5
'on ajoute une feuille que l'on nomme de la valeur de la cellule B5
With Sheets.Add
.Name = nom
End With
'On va copier l'intégralité de la feuille GABARIT
Sheets("GABARIT").Select
Cells.Select
Selection.Copy
Sheets(nom).Select
'Pour ensuite coller ce contenue sur la nouvelle feuille créée
Cells.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'les cellules A6 et B6 prennent les valeurs des variables nom et numero (B5 et A5 de la feuille Liste)
Range("A6").Value = numero
Range("B6").Value = nom
'fin de la condition
End If
'On incrémente la valeur de i de 1 pas
Next i
'Sélection de la feuille Liste
Sheets("Liste").Select
End Sub