Sub J()
Dim r As Range, w1 As Worksheet, c As Integer, w2 As Worksheet
'définir deux feuille
Set w1 = Worksheets("Feuil1")
Set w2 = Worksheets("Feuil2")
'demander à l'utilisateur d'entrer un numéro de colonne
Do
c = Application.InputBox(prompt:="Entrez un numéro decolonne", Type:=1)
Loop Until c > 0 And c < Rows.Count - 1
'définir une plage (ici C2:C10 dans "Feuil1" si l'utilisateur à entré 3)
Set Rg = w1.Range(w1.Cells(2, c), w1.Cells(10, c))
'copier la plage (ici copié en Feuil2!A1)
Rg.Copy Destination:=w2.Cells(1, 1)
End Sub