Bonjour
Merci Banzai64 pour ta réponse.
En fait le piège c'est moi car il me suffit d'appliquer un code que j'ai déjà utilisé mais oublié.
Le voici:
Sheets("Feuil1").[B3].Sort key1:=Sheets("Feuil1").[B3], Order1:=xlAscending, _
key2:=Sheets("Feuil1").[F3], Order2:=xlAscending, Header:=xlGuess
Attention....pas de cellules fusionnées sinon c'est direct un message d'erreur.
J'espère que mon oubli servira à d'autres.
Bonne journée et encore merci Banzai64 d'avoir bien voulu me répondre.