[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
[COLOR=blue]Dim[/COLOR] Tableau()
[COLOR=blue]With[/COLOR] Sheets("Cible")
[COLOR=blue]ReDim[/COLOR] Tableau(1 [COLOR=blue]To[/COLOR] 13)
Tableau(1) = .Cells(6, 2)
Tableau(2) = .Cells(6, 4)
Tableau(3) = .Cells(6, 5)
Tableau(4) = .Cells(6, 7)
Tableau(5) = .Cells(6, 3)
[COLOR=blue]For[/COLOR] i = 6 [COLOR=blue]To[/COLOR] 13
Tableau(i) = Cells(i + 2, 3)
[COLOR=blue]Next[/COLOR] i
[COLOR=blue]End With[/COLOR]
Sheets("Sauvegarde").Range("A" & Sheets("Sauvegarde").Range("A" & Application.Rows.Count).End(xlUp).Row + 1).Resize(1, 13) = Tableau
[COLOR=blue]End Sub[/COLOR]