Faire une boucle sur une macro

Bonsoir

Je viens de faire une macro qui me permet d'aller chercher dans un dossier un fichier .csv de le traiter dans Excell puis de l'extraire et de l'enregistrer dans un nouveau dossier en .xls.
Ca fonctionne plutôt bien.

Par contre dans mon dossier source il y a 24 fichiers que j'aimerai pouvoir traiter en boucle.
Je vais chercher le fichier 1 j'applique la macro existante j'enregistre je ferme et je recommence avec le fichier 2 jusqu'au fichier 24.

Comment faut-il que je modifie la macro existante pour que la boucle puisse s'opérer ?
Voici le code de la macro existante

Sub MiseEnForme()
'
' MiseEnForme Macro
'

'
Sheets("Données entrée").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Conversion 10 Hz - 1Hz\Fichiers 10 Hz à convertir\2018-08-08 - Enregistrement - Carto V6 Run 2.csv" _
, Destination:=Range("$A$1"))
.Name = "2018-08-08 - Enregistrement - Carto V6 Run 2_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("TCD").Select
Selection.Copy
Sheets("Données sortie").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("B4").Select
Selection.Copy
Range("A4").Select
ActiveSheet.Paste
Range("B4").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A3872").Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.FillDown
ActiveWindow.SmallScroll Down:=10
Rows("3873:3873").Select
Selection.ClearContents
Range("A3872").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Sheets("Données entrée").Select
Range("C1:C2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("C1:AQ2").Select
Selection.Copy
Sheets("Données sortie").Select
Range("C1").Select
ActiveSheet.Paste
Range("B1:B2").Select
Application.CutCopyMode = False
Selection.ClearContents
Rows("3:4").Select
Selection.Delete Shift:=xlUp
Sheets("Données sortie").Select
Sheets("Données sortie").Copy
chemin = "C:\Conversion 10 Hz - 1Hz\Fichiers convertis 1 Hz\"
Do
fichier = "Conversion 10Hz 1Hz N°1" & Index + 1 & ".xls"
MyFile = Dir(chemin & fichier)
If MyFile <> "" Then Index = Index + 1
Loop Until MyFile = ""

ActiveWorkbook.SaveAs filename:=chemin & fichier, FileFormat:=xlNormal
ActiveWorkbook.Close
Cells.Select
Selection.ClearContents
Sheets("Données entrée").Select
Cells.Select
Range("R1").Activate
Selection.QueryTable.Delete
Selection.ClearContents

End Sub


Bien sûr la question m'a été posée Vendredi soir et comme par hasard c'est pour hier lol
Si quelq'un peut m'aider à trouver une solution j'en serai très reconnaissante.

Bonne soirée