[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
[COLOR=blue]Dim[/COLOR] Tableau()
[COLOR=blue]With[/COLOR] Sheets("Feuil1")
NbrLign = .Range("A" & Application.Rows.Count).End(xlUp).Row
[COLOR=blue]ReDim[/COLOR] Tableau(1 [COLOR=blue]To[/COLOR] NbrLign, 1 [COLOR=blue]To[/COLOR] 7)
i = 1
[COLOR=blue]While[/COLOR] i < NbrLign + 1
[COLOR=blue]For[/COLOR] k = 1 [COLOR=blue]To UBound[/COLOR](Tableau, 1)
[COLOR=blue]For[/COLOR] j = 1 [COLOR=blue]To[/COLOR] 7
Tableau(k, j) = .Cells(i, 1)
i = i + 1
[COLOR=blue]Next[/COLOR]
[COLOR=blue]Next[/COLOR]
[COLOR=blue]Wend[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("Feuil2")
.Range("A1").Resize([COLOR=blue]UBound[/COLOR](Tableau, 1), [COLOR=blue]UBound[/COLOR](Tableau, 2)) = Tableau
.Activate
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]