Problème de macro

Bonjour,
J'ai enregistré 2 macros, et les ai relié par une 3ème dans un même module Voici mon module :Sub Scenario_1_2()
scenario_1
scenario_2
End Sub

Sub scenario_1()
'
' scenario_1 Macro
'

'
Sheets("Feuil9").Select
Range("B4").Select
ActiveCell.FormulaR1C1 = "1"
Range("D4").Select
Range("D4").GoalSeek Goal:=0, ChangingCell:=Range("B4")
Sheets("Batterie froid").Select
End Sub
Sub scenario_2()
'
' scenario_2 Macro
'

'
Sheets("Feuil9").Select
Range("B9").Select
ActiveCell.FormulaR1C1 = "1"
Range("D9").Select
Range("D9").GoalSeek Goal:=0, ChangingCell:=Range("B9")
Sheets("Batterie froid").Select
Range("T22:V22").Select
End Sub

J'ai affecté le scenario_1_2 a un bouton.
Quand je clique sur le bouton il n'effectue que la 1ere tache, c'est à dire mettre le 1 dans la cellule B4,
Je ne sais pas ce qu'il se passe.
Merci de votre aide