Private Sub CommandButton2_Click() 'Version tableau
Deb = Timer
Dim Tableau()
With Sheets("Feuil1")
NbrLign = .Range("C" & Application.Rows.Count).End(xlUp).Row - 11
ReDim Tableau(1 To NbrLign, 1 To 7)
For i = 1 To UBound(Tableau, 1)
Tableau(i, 1) = .Cells(10, 7)
Tableau(i, 2) = .Cells(8, 7)
For j = 3 To UBound(Tableau, 2)
Tableau(i, j) = .Cells(i + 11, j)
Next j
Next i
Range("A" & Range("A" & Application.Rows.Count).End(xlUp).Row + 1).Resize(UBound(Tableau, 1), 7) = Tableau
End With
MsgBox Timer - Deb
End Sub