Sub Mise_ajour_Classeurs()
Dim a As Workbook
Dim Chemin$, Classeur$, MAJ1$, MAJ2
Chemin = "C:\Toto"
Classeur = Dir(Chemin & "\*.xls")
Set a = ThisWorkbook
MAJ1 = a.Sheets(1).[A1]
MAJ2 = a.Sheets(1).[A2]
Do While Classeur <> Empty
With Workbooks.Open(Chemin & "\" & Classeur)
With .Sheets(1)
.Rows(11).Insert
With .[A11]
.Value = MAJ1
.Offset(, 1).Value = MAJ2
End With
End With
.Close True
End With
Classeur = Dir
Loop
End Sub