Comment optimiser une macro?

Bonjour,

Une proposition :

Sub action()
If  Not Sheets("A").Cells(1, 1)  = "No" Then Shell (Sheets("Order").Cells(1, 1) & "\" & Sheets("Order").Cells(1, 4).Value & ".exe")
end sub

Pedro22 a écrit :

Bonjour,

Une proposition :

Sub action()
If  Not Sheets("A").Cells(1, 1)  = "No" Then Shell (Sheets("Order").Cells(1, 1) & "\" & Sheets("Order").Cells(1, 4).Value & ".exe")
end sub

Merci Pedro22 !

bonjour,

Optimiser une macro : C'est en pièce jointe !

A+