Sub actu2()
Dim sngChrono!, derl&, derc&, f&, n&, m&, p&
Dim Tablo1(), Tablo2()
sngChrono = Timer
derl = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
derc = Sheets("Feuil1").Cells(10, Columns.Count).End(xlToLeft).Column
Tablo1 = Sheets("Feuil1").Range(Sheets("Feuil1").Cells(11, 1), Sheets("Feuil1").Cells(derl, derc)).Value
For f = 2 To Worksheets.Count
derlin = Sheets(f).Range("A" & Rows.Count).End(xlUp).Row
dercol = Sheets(f).Cells(10, Columns.Count).End(xlToLeft).Column
Tablo2 = Sheets(f).Range(Sheets(f).Cells(11, 1), Sheets(f).Cells(derlin, dercol)).Value
For n = LBound(Tablo1, 1) To UBound(Tablo1, 1)
For m = LBound(Tablo2, 1) To UBound(Tablo2, 1)
If Tablo1(n, 1) = Tablo2(m, 1) Then
For p = 17 To dercol
Tablo1(n, p) = Tablo2(m, p)
Next
End If
Next
Next
Next
Sheets("Feuil1").Range("A11").Resize(UBound(Tablo1, 1), UBound(Tablo1, 2)).Value = Tablo1
sngChrono = Timer - sngChrono
MsgBox "Temps d'execution du code en sec : " & CStr(sngChrono)
End Sub