RE
Bon pour la première partie on pourrait éviter le select maispour le tri je crois pas
alors proposition
application.screenupdating=false
sheets('AAA').visible=true
Sheets('AAA').Select
Dim VotreNom As String
Range('C200').Select
Selection.End(xlUp).Offset(1, 0).Select
VotreNom = InputBox(' xxx..
ActiveCell.Value = VotreNom
Columns('c:c').Select
Range('c200').Activate
Selection.Sort Key1:=Range('c2'), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
sheets('AAA').visible=false
'ou au choix
'sheets('AAA').visible=xlveryhidden
application.screenupdating=true
Message édité par: Pascal76, à: 11/05/2006 15:14