Aide "Erreur 438..."

Bonjour à tous,

J'aurai besoin de votre aide pour pouvoir résoudre mon problème d'erreur.

En effet, j'étais sur mon pc portable, sous excel 2016, et je réalisais un projet. Le projet fonctionne parfaitement, je l'ai mis sur ma clé USB et quand j'ai voulu ouvrir celui - ci sur mon poste de travail, sous Excel 2010, cette erreur est survenue.

Merci d'avance pour votre aide !

Je vous mets une photo de l'erreur et le fichier correspondant en pièce - jointe.

bonjour,

supprime le 2 dans cette instruction.

    ActiveWorkbook.Worksheets("Liste_rv").Sort.SortFields.Add2 Key:=Range("D4:D7" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

h2so4 a écrit :

bonjour,

supprime le 2 dans cette instruction.

    ActiveWorkbook.Worksheets("Liste_rv").Sort.SortFields.Add2 Key:=Range("D4:D7" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

Bonjour,

Je l'ai supprimé mais le problème persiste.

h2so4 a écrit :

bonjour,

supprime le 2 dans cette instruction.

    ActiveWorkbook.Worksheets("Liste_rv").Sort.SortFields.Add2 Key:=Range("D4:D7" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

Ah c'est bon, je n'ai plus l'erreur finalement, merci !