Bonjour,
comme l'a dis mon fcyspm30, la priorité est bien copiée en colonne A, mais la cotation vient ensuite écraser la priorité, c'est ce bout de code qui est en tort:
'*** Copier/coller cotation
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("EVALUATION DES RISQUES").Select
Range("M7:M1000").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(myName).Select
Range("A4").Select
'collage spécial
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Je ne vois pas de colonne pour la cotation, donc je pense que cette partie du code devrait soit être passée en commentaire, soit être supprimée. Le fait que le programme ait été fait avec l'enregistreur de macro n'aide pour la lisibilité.