Private Sub Ajout_Click()
Application.ScreenUpdating = False
Sheets("ALIAS").Select
Range("a65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Activité.TextBox1.Value
Range("a65536").End(xlUp).Offset(, 1).Select
ActiveCell.Value = Activité.TextBox2.Value
Range("A2", Range("a65536").End(xlUp)).Select
With ActiveWorkbook.Names("libelle")
.Name = "libelle"
.RefersToR1C1 = Selection
End With
Range("A2", Range("b65536").End(xlUp)).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("POINTAGE").Select
Application.ScreenUpdating = True
End Sub