Grouper 2 macros

Bonjour,

Je souhaite faire une macro des deux ci-dessous :

Sub occasion() ' Nom de la macro
Set fich = Workbooks.Open("nom et adresse du fichier")
With fich 'Sélection du fichier renommé fich
Workbooks("Classeur1.xls").Activate 'Ouverture du fichier cible
End 'Fin de boucle
End With 'fin de conditions

End Sub 'Clôture de la Macro
____________________________________________________

Sub neuf() ' Nom de la macro
Set fich = Workbooks.Open("nom et adresse du fichier
With fich 'Sélection du fichier renommé fich
Workbooks("Classeur1.xls").Activate 'Ouverture du fichier cible
End 'Fin de boucle
End With 'fin de conditions

End Sub 'Clôture de la Macro


Merci