Macro pour imprimer

Salut Chers Amis du forum
J'ai élaboré une macro pour imprimer une plage de cellule connue et le nombre de copies doit être déterminé via InputBox . J'ai remarqué qu' elle lance une seule copie malgré le nombre indiqué dans la inputbox
Pouvez vous m'aider à faire le reglage?
Voici la macro :

Sub imprimer()
Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show
Dim X As String
X = InputBox("Saisir le nombre de copies à effectuer", "Impression")
If X = "" Then
MsgBox "Nombre de copies non determiné Veuillez reesayer ", 64
Exit Sub
End If
If X <> 0 Then
Range("B6:F28").PrintOut Copies:=X, Collate:=True
End If
End Sub