Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'Tempo de x millisecondes
Sub aller_COMPLEMENT_XL2007()
'Stop
temps = 200
Sleep temps
SendKeys ("%"), True
Sleep temps
Application.SendKeys ("m"), True
Sleep temps
Application.SendKeys ("2"), True
Sleep temps
Application.SendKeys ("{esc}"), True
Sleep temps
Application.SendKeys ("{esc}"), True
End Sub
Sub aller_COMPLEMENT_XL2010()
'Stop
Sleep 100
SendKeys ("%"), True
Sleep 100
SendKeys ("y"), True
Sleep 100
SendKeys ("223{Esc}{esc}"), True
End Sub