Salut polpoye
voila du code qui semble s'approcher de ce que tu cherches
Sub BalayageFichier()
Dim Cellule As Variant
Dim NomFichier As String, Chemin As String
Dim Deplacement As Integer
Const NbCellule As Integer = 3, FichierComp As String = "test.xls"
Deplacement = 0
Chemin = "E:\test\excel\toto"
NomFichier = Dir("*.XLS")
If NomFichier = FichierComp Then NomFichier = Dir()
Do
Workbooks.OpenText Filename:=Chemin & "\" & NomFichier, _
Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(0, 1)
Range("A1:A3").Copy
Workbooks(fichiercomp).Activate
Range("A1").Offset(Deplacement, 0).PasteSpecial
Deplacement = Deplacement + NbCellule
Workbooks(NomFichier).Close
NomFichier = Dir()
If NomFichier = FichierComp Then NomFichier = Dir()
Loop Until NomFichier = ""
Workbooks(FichierComp).Save
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
For Each Cellule In Selection
Cellule.Offset(0, 2) = Cellule.Offset(0, 1).Value
If Cellule.Value <> Cellule.Offset(0, 1).Value Then _
Cellule.Offset(0, 2).Font.ColorIndex = 3
Next
End Sub
bon courage