1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Sub test7()
Dim plage As Range, col, x, tablo
x = timer
Set plage = Sheets(1).Range("A1:E" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row) ' plage a prendre en compte
col = Array(1, 2, 3, 4, 5)
tablo = tableau_sans_doublons_X_colonnes3(plage, col)
x = timer - x
With ActiveSheet.Cells(1, 8).Resize(UBound(tablo), 1)
.Value = Application.Transpose(tablo)
.TextToColumns Destination:=.Columns(1), DataType:=xlDelimited, OtherChar:="|"
End With
MsgBox x & "secondes"
MsgBox UBound(tablo)
End Sub |