[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
C = Feuil4.Cells(1, 1).End(xlToRight).Column + 1
[COLOR=blue]If[/COLOR] C > Application.Columns.Count [COLOR=blue]Then[/COLOR] C = Sheets("Feuil4").Cells(1, Application.Columns.Count).End(xlToLeft).Column + 1
[COLOR=blue]If[/COLOR] Sheets("Feuil4").Cells(1, 1) = "" [COLOR=blue]Then[/COLOR] C = 1
Feuil1.Range("B10:B" & Feuil1.Range("B" & Application.Rows.Count).End(xlUp).Row).Copy Feuil4.Cells(1, C)
[COLOR=blue]End Sub[/COLOR]