[COLOR=blue]Sub[/COLOR] Test2()
[COLOR=blue]Dim[/COLOR] Tableau()
Derligne = Sheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row
[COLOR=blue]ReDim[/COLOR] Tableau(0 [COLOR=blue]To[/COLOR] Derligne)
[COLOR=blue]For[/COLOR] i = 1 [COLOR=blue]To[/COLOR] Derligne
Tableau(i - 1) = Left(Cells(i, 1), 9)
[COLOR=blue]Next[/COLOR] i
Sheets("Feuil1").Cells(1, 2).Resize([COLOR=blue]UBound[/COLOR](Tableau)) = Application.Transpose(Tableau)
[COLOR=blue]End Sub[/COLOR]