comment associer deux modules a un seul bouton

Bonjour Doudou, bonjour le forum,

Le code du bouton :

bonjour
merci pour la réponse.
comme ca ?

Sub ImprimerUnBonDeReception()
Module1.ImprimerUnBonDeReception
Module1.Imprimer
Module2.Imprimer
UserForm1.Show
End Sub

comme ca, ca marche pas
Sub ImprimerUnBonDeReception()
Module1.ImprimerUnBonDeReception
Module1.Imprimer
Module2.Imprimer
UserForm1.Show
End Sub

bonsoir
désolé de ne pas avoir répondu plus tôt.
je met en pièce jointe mon fichier

bonsoir a tous
je me permet de relancer le sujet.
quelqu’un peut il me venir en aide svp
cordialement

bonjour a tous

pour associer 2 modules a un seul bouton UserForm
c'est ok pour moi avec ca que j'associe a mon bouton.( merci à Robert pour son aide )

Sub Macro2()
'
' Macro2 Macro
Module1.Imprimer
Module2.Imprimer
End Sub

changer la hauteur de police en (arial 10) alors que je suis en arial 24. pour les autres cellules c'est ok ( "F8:G8", "F5:G5", "D21:E21" )

c'est ok pour moi je m'en suis sortie avec l'enregistreur de macro.
que j'ai integré a ma macro
je sais c'est pas terible mais ca marche.
With Selection.Font
.Name = "Arial"
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection.Font
.Name = "Arial"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With

je pense que l'on peux fermer ce sujet.
merci a tous