Bonjour,
Pouvez-vous préciser sur quelle ligne de code l'erreur se produit (est color en jaune !).
Salutations.
Jean-Pierre

Merci pour cette réponse,
Dès que j'aurais l'info je la communiquerais.
Je viens d'envoyer une version de mon classeur, sans PW sur VBA, et en demandant de communiquer
la ligne au se produit l'erreur.
Je vous tiens au courant.
Mistral

Bonjour,
Je suppose que l'erreur se produit sur cette patie du code :

Selection.Sort Key1:=Range("D28"), Order1:=xlAscending, Header:=xlNo, _ 
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
DataOption1:=xlSortNormal 

Tout d'abord merci de vous interesser a mon problème.

J'ai modifié en tenant compte de votre remarque. J'attends le résultats de la part de la personne qui a ce problème vu que moi je n'ai pas cette version d'Excel.
Par contre je me demande a quoi peut servir cette instruction "DataOption1:=xlSortNormal " puisque même en l'ayant supprimée chez moi, tout continue à fonctionner normalement.
Pouvez-vous m'éclairer sur le sujet?
D'autre part, comment cela se fait-il que Microsoft n'assure pas la compatibilité d'une version avec les version précédentes. Un fabricant n'a-t-il pas une obligation?

Dans tous les cas merci pour votre aide.
Cordialement.
Mistral

Bonjour Mistral_13200,
Concernant : "DataOption1:=xlSortNormal " ---> Indique comment trier le texte de la plage spécifiée dans Key1 ; ne s'applique pas au tri des tableaux croisés dynamiques.
Pour xlSortNormal : Trie les données numériques et textuelles séparément.
Pour xlSortTextAsNumbers : Traite le texte comme des données numériques pour le tri.

Concernant : D'autre part, comment cela se fait-il que Microsoft n'assure pas la compatibilité d'une version avec les versions précédentes.
Attention ce paramètre a été introduit après la version 97 voir 2000, s’il se trouve dans le code il ne peut pas être reconnu par la version 97 se qui est correct (il ne s’agit pas de la version précédente dans se cas).

Salutations.
Jean-Pierre