Dim T() As Variant, L As Long ' Déclare un tableau dynamique et un entier long.
T = [Liste!A4].CurrentRegion.Value ' Charge dans la variable tableau dynamique T la valeur (donc
' les valeurs de toutes ses cellules) de la zone en cours de la cellule A4 de la feuille "Liste",
' c'est à dire la plage la contenant, délimitée par les lignes et colonnes vides les plus proches d'elle.
For L = 2 To UBound(T, 1) ' de 2 au nombre de lignes (on ne prend pas la ligne d'entête)
ThisWorkbook.Worksheets(T(L, 1)).Copy ' T(L, 1) c'est donc le nom de la feuille
With ActiveSheet.UsedRange: .Value = .Value: End With ' Supprime les formules de la feuille créée par copie.
ActiveWorkbook.SaveAs T(L, 5) & "\" & T(L, 3) ' C'est le Chemin\NomFichier à écrire si je ne me trompe.
ActiveWorkbook.Close
Next L