Bonjour
Remplaces la macro correspondante par celle-ci
Private Sub Tri_BDD()
Range("Base_de_Données").Sort Key1:=Range("B1"), Order1:=xlAscending, _
Key2:=Range("BB1"), Order2:=xlAscending, _
Key3:=Range("DD1"), Order3:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
End Sub