Public Sub Print_Me()
With Application.Dialogs(xlDialogPrinterSetup)
If .Show Then ' une imprimante a été choisie
Application.ScreenUpdating = False
Workbooks.Open ThisWorkbook.Path & "\Adhérents.xlsx", ReadOnly:=True
UserForm1.Show
End If
End With
End Sub