générer des fichiers a partir d'un tableau

Sub CreerFichier()
  Dim i As Integer
  Dim nomfic As String
  
  'de la ligne 7 à 118
  For i = 7 To 118
    'Récupère le contenu de la ligne courante dans la colonne A
    nomfic = Cells(i, 1)
    'récupère les autres infos sur la ligne
    Range("A" & i & ":AZ" & i).Copy
    'Créer un nouveau classeur
    Workbooks.Add
    'y coller les données récupé
    ActiveSheet.Paste
    'Enregistrer ce nouveau classeur dans le dossier en cours
    ActiveWorkbook.SaveAs nomfic
    'puis le ferme
    ActiveWorkbook.Close
  'suivant
  Next
End Sub

Sub CreerFichier()
  Const ENREGISTRER_DANS As String = "C:\"
  Dim i As Integer
  Dim nomfic As String
  
  
  'de la ligne 7 à 118
  For i = 7 To 118
    'Récupère le contenu de la ligne courante dans la colonne A
    nomfic = Cells(i, 1)
    'Créer un nouveau classeur
    Workbooks.Add
    'EXEMPLE : récupérer en A1 la ligne courante colonne B
    Range("A1") = ThisWorkbook.ActiveSheet.Range("B" & i)
    'TO BE CONTINUED
    '
    '
    '
    'Enregistrer ce nouveau classeur dans le dossier en cours
    ActiveWorkbook.SaveAs ENREGISTRER_DANS & nomfic
    'puis le ferme
    ActiveWorkbook.Close
  'suivant
  Next
End Sub