Sub Copier()
On Error Resume Next
Dim a As Long
Dim b As Long
Dim c As String
Dim d As Long
Dim e As Long
c = InputBox("Quel est le numéro de la colonne à copier? Exemple: colonne A = 1, etc...", "Copie des données", "4")
b = c
Select Case b
Case 1 To 100
a = 2
d = Cells(65536, b).End(xlUp).Row
e = 2
Do While e <> d
Select Case Cells(e, b).Value
Case ""
Cells(e, b).Select
Selection.Delete
d = Cells(65536, b).End(xlUp).Row
e = e - 1
Case Else
e = e + 1
End Select
Loop
Do While ActiveSheet.Cells(a, b).Value <> ""
a = a + 1
Loop
ActiveSheet.Range(Cells(2, b), Cells(a - 1, b)).Select
Selection.Copy
Case Else
Exit Sub
End Select
CommandBars("CNE").Controls("Coller").Enabled = True
End Sub