Sub test2() 'patrick
Dim tabl, plage As Range, tim, colonnes
tim = Timer
Set plage = [A1:p1].Resize(Cells(Rows.Count, 2).End(xlUp).Row, 16)
colonnes = Array(2, 3, 16) 'il est possible de les mettres dans l'ordre que l'on veut
tabl = Application.Index(plage.Value, Evaluate("ROW(" & plage.EntireRow.Address & ")"), colonnes) 'mettre les colonnes que l'on veut dans l'ordre voulues
[r1].Resize(UBound(tabl), 3) = tabl
MsgBox "pour patricktoulon : " & Format(Timer - tim, "0.000\ sec.")
End Sub
Sub ExtraitCol1316Champ() 'ChT160
Dim tim
tim = Timer
Set Rng = [A1:p1].Resize(Cells(Rows.Count, 2).End(xlUp).Row, 16)
Dim tmp(): ReDim tmp(1 To Rng.Rows.Count, 1 To 1): For i = 1 To Rng.Rows.Count: tmp(i, 1) = i: Next
b = Application.Index(Rng, tmp, Array(2, 3, 16)) 'plante ici'
[r1].Resize(UBound(b), UBound(b, 2)) = b
MsgBox "pour ChTi160 : " & Format(Timer - tim, "0.000\ sec.")
End Sub