Bonjour à tous

J'ai un petit soucis sur un bouton dont voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Sub imprimer()
 
 
Workbooks("Maintenance").Sheets("Ouvrir").Activate
 
ilot = ActiveSheet.Range("H15").Value
 
 
 
Dim Ws As Worksheet
 
For Each Ws In Workbooks("FICHE " & ilot & ".xlsm").Worksheets
    Ws.PrintOut
Next
 
 
End Sub

Quand je clic sur le bouton, tous s'imprime niquel, mais j'ai quand même une erreur 400 qui s'affiche à la fin de l'opération, une idée de pourquoi ?


Merci d'avance