copie d'1 feuille+execution autod'1 macro

Salut everybody

j'aimerai "mélanger" harmonieusement ces 2 macros mais je cale...
voici la macro qui copie une feuille :
Sub archive()


Sheets("archive").Rows("5:5").Insert Shift:=xlDown
Sheets("archive").Rows("5:5").Interior.ColorIndex = xlNone

MonClient = Range("d6").Value
MonObjet = Range("b5").Value
MonNum = Range("c3").Value
MonMontant = Range("h92").Value
Madate = Range("C2").Value

Worksheets("archive").Range("a5") = MonClient
Worksheets("archive").Range("b5") = MonObjet
Worksheets("archive").Range("c5") = MonNum
Worksheets("archive").Range("d5") = MonMontant

Sheets("modele74").Copy Before:=Sheets(2)

Sheets("modele74 (2)").Name = MonNum

Worksheets(MonNum).Range("c3") = MonNum
Worksheets(MonNum).Range("c2") = Madate

Sheets(MonNum).Shapes("Button 5").Delete

Msg = MsgBox("Le devis " & MonClient & " est archivé.")

Sheets("modele74").Select
MonNumPlus = Range("a4").Value
Range("a4") = MonNumPlus + 1


Range("d6").ClearContents
Range("c5").ClearContents
Range("b5").ClearContents
Range("A9:a82").ClearContents
Range("b9:b82").ClearContents
Range("i9:i82").ClearContents
Range("b7:i7").ClearContents
Range("A4").Select


End Sub


et voici la macro que j'aimerais voir executée automatiquement au moment de la copie :

Sub ChangeCellule()
For Ligne = 9 To 82
Select Case (UCase(Range("a" & Ligne).Value))
Case ""
Range("a" & Ligne).EntireRow.Hidden = True
Case Else
End Select
Next Ligne

End Sub

D'avance merci