[SIZE=2]Dim TabTemp[COLOR=navy] As Variant[/COLOR]
[COLOR=green]'Charge les données de la plage A1:E1000 dans un tableau variant temporaire[/COLOR]
[COLOR=navy]With[/COLOR] Sheets("Feuil1")
TabTemp = .Range(.Cells(1, 1), .Cells(1000, 5)).Value
[COLOR=navy]End[/COLOR] With[/SIZE]