Re : Insertion de lignes automatique( Vba ou Fonctions)
Merci
Dans la macro, dans la partie
ActiveWorkbook.Worksheets("BDD").Sort.SortFields.Add Key:=Range("E2:E" & derligneBdd), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"Honoraires divers,Finance,Marketing,Commercial,RH,technique", DataOption:=xlSortNormal ==> tu ajoutes tes critères dans l'ordre que tu voudrais qu'ils apparraissent sur ta feuille ...
Mais tu peux aussi écrire ton tri comme ça
ActiveWorkbook.Worksheets("BDD").Sort.SortFields.Add Key:=Range("E2:E" & derligneBdd), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"technique,Honoraires divers,Finance,RH,Marketing,Commercial", DataOption:=xlSortNormal
Sinon en principe, le reste est bon
BàT.
John