Imprimer en réseau...cette macro ne fonctionne pas...pourquoi ?

Bonjour à tout le forum,
Pourriez-vous me dire ce qu'il faut modifier sur cette macro qui en l'état fonctionne mal ;

Sub ImprimVdeMidiSoir()
Dim X As Integer
For X = 10 To 60
Range("C5K52").Select
On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\srv-impression\IUCPCFROID1 sur Ne" & X & ":", Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\srv-impression\IUCPCPROD_cartes sur Ne" & X & ":", Collate:=True
Next X
Range("D1").Select

End Sub

Merci pour votre aide.

Bien à vous,
Christian