sub exemple ()
Dim classeur1 As Workbook
Dim nom1 As String
Dim chemin As String
nom2 = Dir("\chemin\01234567899*.txt")
chemin = "\cheminasuivre\"
If nom2 <> "" Then
Set classeur2 = Workbooks.Open(chemin & nom2)
' MODIFICATION SUR CLASSEUR 2
Range("I2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Classeur1").Activate
Range("D9").Select
ActiveSheet.Paste
Workbooks(nom2).Activate
Range("I6").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("classeur1").Activate
Range("E9").Select
ActiveSheet.Paste
'somme corrigée copiée
Workbooks(nom2).Activate
Range("A1").Select
Selection.Copy
Windows("classeur1").Activate
Range("H9").Select
ActiveSheet.Paste
Windows("classeur1").Activate
Range("B9").Select
'MODIFICATION SUR CLASSEUR 1
Workbooks(classeur2).Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=No
End If
end sub