En faite ce que je voudrais c'est que l'on puisse choisir ce qui va aller ce coller en fin de colonne.
Voici le code original qui ne me permet pas de choisir:
Sheets('x').Select
Dim VotreNom As String
Range('B200').Select
Selection.End(xlUp).Offset(1, 0).Select
VotreNom = InputBox(' Entrer Le Nom ')
ActiveCell.Value = VotreNom
Columns('B:B').Select
Range('B200').Activate
Selection.Sort Key1:=Range('B2'), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
je dois donc changer l'input box mais je ne sais pas comment faire et quoi mettre?