probleme macro

bonjour, je suis en train de créer une macro dans excel. Je suis assez nul, mais j'en ai besoin très rapidement, je suis en BTS blanc la semaine prochaine. ma macro ne marche pas, j'ai inserer 2 inputbox, qui marchent, mais se répètent, sans fin. Commen dois-je la corriger,?
MERCI par avance de votre aide!!!!

Sub MACRO1()
'
Dim GP As Single
Dim GM As Single
Dim GP1 As Single
Dim GM1 As Single
Dim PourcentageGMdansGP As Single
Dim PourcentageGPdansGM As Single

PourcentageGMdansGP = 0.1
PourcentageGPdansGM = 0.2

GP1 = InputBox("veuillez saisir le montant de GP avant répartition")
GM1 = InputBox("veuillez saisir le montant de GM avant répartition")
GP = GP1 + PourcentageGMdansGP * (GM1 + PourcentageGPdansGM * GP1)
GM = GM1 + PourcentageGPdansGM * GP
GM = Worksheets("Tableau des charges indirectes").Range("F5").Value
GP = Worksheets("Tableau des charges indirectes").Range("D4").Value



' MACRO1 Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
Sheets("Tableau des charges indirectes").Select
Application.Run "APS4!MACRO1"
Application.Goto Reference:="MACRO1"
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
ChDir "C:\Documents and Settings\Administrateur\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrateur\Bureau\APS4.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
Sheets("Tableau des charges indirectes").Select
End Sub