Sub copie_colonnes()
Dim multi As Range
Dim i As Byte
For i = 1 To 3
If multi Is Nothing Then
col = Application.InputBox("Colonne " & i, Type:=1)
Set multi = Range(Cells(1, col), Cells(Cells(65000, col).End(xlUp).Row, col))
Else
col = Application.InputBox("Colonne " & i, Type:=1)
Set multi = Union(multi, Range(Cells(1, col), Cells(Cells(65000, col).End(xlUp).Row, col)))
End If
Next i
multi.Copy
Range("A65536").End(xlUp).Offset(1, 0).Paste
End Sub