Imprimer plusieurs feuilles avec un bonton

Bonjour à tous,

J'aimerais imprimer plusieurs feuilles en cliquant sur un bouton présent dans la feuille "Devis"

Voici mon code :

Sub Bouton6_Cliquer()
Sheets(Array("Lettre", "Devis", "Conditions Techniques", "CGV")).Application.Dialogs(xlDialogPrint).Show
End Sub

Pouvez-vous m'aider s'il vous plait ?

Cordialement

Paulo

Bonsoir Paulo, le forum,

A tester:

Sub Bouton6_Cliquer()
 Dim sh As Worksheet, wsh
  Set wsh = Sheets(Array("Lettre", "Devis", "Conditions Techniques", "CGV"))
   For Each sh In wsh
    'sh.PrintPreview  '............................aperçu avant impression
    sh.PrintOut '..................................impression
   Next sh
End Sub

Cordialement,