Sub Bouton1_Clic()
b = Split(InputBox("indiquez la/les lettre(s) des colonnes séparées par des points virugles (;)"), ";")
For i = 0 To UBound(b)
Co = Sheets(Sheets.Count).Cells(1, Columns.Count).End(xlToLeft).Column
If Sheets(Sheets.Count).Cells(1, 1) <> "" Then
Feuil1.Columns(b(i)).Copy Sheets(Sheets.Count).Cells(1, Co).Offset(0, 1)
Else
Feuil1.Columns(b(i)).Copy Sheets(Sheets.Count).Cells(1, 1)
End If
Next
Sheets(Sheets.Count).Activate
End Sub