Sub Macro1()
With Sheets("inscription")
.Range("B5").CurrentRegion.Sort Key1:=.Range("B5"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
With Sheets("appel")
.Range("B6").CurrentRegion.Sort Key1:=.Range("B6"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub