.Range("L2") = .Range("I6")
Sheets("Vos commandes").Range("C2: K2" & Lig).Sort Key1:=Sheets("Vos commandes").Range("I2"), Order1:=xlDescending, Header:=xlNo
Sheets("Vos commandes").Range("C2: K2" & Lig).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("I1:J2:K2:L2"), CopyToRange:=.Range("K12:S12"), Unique:=False