Macro VB Creation feuilles

'Pour cet exemple, on suppose:
'   - que le tableau se trouve dans l'onglet "Liste factures"
'   - que le modèle se trouve dans l'onglet "Modèle de facture".
'   - le tableau commence à la colonne A et à la ligne 2. /!\ Il ne doit pas avoir de cellule vide dans la colonne A,
'     de la ligne 2 à la dernière ligne du tableau.
'   - la colonne B du tableau contient le numéro de facture qui sera pris comme nom de l'onglet créé.
'   - le modèle de facture est sur la plage : A1 à N60
'
Sub addNewSheet()
Dim newSheet As Worksheet
Dim ws As Worksheet
Dim wsModele As Worksheet
Dim lig As Long

    Set ws = Worksheets("Liste factures")
    Set wsModele = Worksheets("Modèle de facture")
    lig = 2
    
    With ws
        While .Range("A" & lig).Value <> ""
            Set newSheet = Sheets.Add(Type:=xlWorksheet)
            newSheet.Name = .Range("B" & lig).Value
            newSheet.Move After:=Sheets(Sheets.Count)
            wsModele.Range("A1:N60").Copy
            ActiveSheet.Paste Destination:=Worksheets(.Range("B" & lig).Value).Range("A1")
            Set newSheet = Nothing
        lig = lig + 1
        Wend
    End With
    
    Set ws = Nothing
    Set wsModele = Nothing

End Sub