bon,
j'ai trouvé un peu de temps et un code à adapter:
tu dois mettre les noms des 200 fichiers
dans un onglet (feuille 5 dans cet exemple)
Sub OuvrirlesFileColonneA()
Application.ScreenUpdating = False
Dim fNames As Variant, Depart, Neuf
Dim mycell As Range
Dim lLastRow As Long, Lastcol As Range
Dim lCount As Long
Dim Last As Integer, Cole As Range
' classeur de départ
Set Depart = ActiveWorkbook
' dernière colonne libre
Last = Range('IV1').End(xlToLeft).Column + 1
' range où l'on copiera
Set Lastcol = Cells(1, Last)
' dernière ligne du range A1:Ax de la feuille 5 de 'départ'
lLastRow = Sheets('feuil5').Range('A1').End(xlDown).Row
' le nom du classeur contenu dans les cellules
fNames = Range('A1:A' & lLastRow)
' boucle sur ces noms
For lCount = 1 To UBound(fNames)
' ouverture du classeur
Workbooks.Open Filename:=fNames(lCount, 1)
Set Neuf = ActiveWorkbook
' on copie la colonne D à droite de la dernière libre de départ
Set Cole = Range('D
')
Cole.Copy Lastcol
' on ferme le fichier ouvert en second
Neuf.Close
' on REdétermine dernière ligne et range de destination
Last = Range('IV1').End(xlToLeft).Column + 1
Set Lastcol = Cells(1, Last)
Next lCount
End Sub