Lig = 6 '< ici ta ligne et l'entête en B3 !
Sheets("BDPMT").Select
R1$ = "B3": R$ = R1$ & ":I" & Lig
Range(R$).Select
Selection.Sort Key1:=Range(R1$), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal