EXCEL - Calcul avant impressions automatiques

Bonjour,

Je débute en VBA et je planche sur ce problème depuis un bon moment donc je m'en remets à vous, spécialistes, pour m'aider à trouver une solution.

J'ai créé un fichier Excel qui, lorsqu'on clique sur un bouton, copie la feuille "Fiche de suivi type" en autant d'exemplaires qu'il y a de lignes dans ma feuille "Tableau" et remplace les champs prévus par les éléments de ces lignes (une ligne = une feuille "Fiche de suivi n°.."). Un autre bouton me permet de supprimer toutes les feuilles sauf "Tableau" et "Fiche de suivi type". Jusque là, tout fonctionne.
Par contre, mon troisième bouton qui est censé imprimer toutes les feuilles "Fiche de suivi n°.." ne fonctionne pas correctement et m'imprime la même feuille en autant d'exemplaires que de fiches de suivi différentes attendues.

Remarque : quand je clique sur une fiche de suivi, les données ne s'affichent correctement qu'après un rafraichissement.

Voilà une de mes dernières tentatives (la dernière, pas plus concluante que les autres, étant d'écrire les noms de toutes les fiches de suivi à imprimer en répétant le même code x fois...) :

Private Sub Imprimer_Click()
Dim i, z
Application.DisplayAlerts = False

z = Sheets("Tableau").Range("J2").Value 'Nombre de fiches de suivi à imprimer
Sheets("Fiche de suivi n°01").Select
For i = 1 to z
Calculate
Application.ActivePrinter = "\\serveur\GelSprinter GX 3000 sur Ne05:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
ActivePrinter:="\\serveur\GelSprinter GX 3000 sur Ne05:", Collate:=True
ActiveSheet.Next.Select
Next i
Application.DisplayAlerts = True
End Sub


J'ai essayé de résoudre le problème de plein de façons différentes :
- en essayant plusieurs modes de changement de feuille
- avec Activate au lieu de Select
- en supprimant la feuille active avant de passer à la suivante (ce qui, à la main, ne nécessite pas de rafraichissement)

Mais rien n'y fait, les feuilles imprimées sont identiques...

J'ai pensé que c'était peut-être un problème de vitesse d'exécution : l'ordinateur n'a peut-être pas le temps de calculer avant que l'impression soit lancée... J'ai donc essayé d'incorporer une instruction permettant de faire une pause pour laisser à l'ordinateur le temps de rafraichir la page mais je ne sais pas où placer Imports System.Threading :

Private Sub Imprimer_Click()
Application.DisplayAlerts = False
Imports System.Threading

Dim z
Dim i As Integer
Dim ThreadEnCours As Thread

ThreadEnCours = System.Threading.Thread.CurrentThread
z = Sheets("Tableau").Range("J2").Value

Sheets("Fiche de suivi n°01").Select

For i = 1 To z
Calculate
ThreadEnCours.Sleep (1000) 'pause en milliseconde
Application.ActivePrinter = "\\serveur\GelSprinter GX 3000 sur Ne05:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
ActivePrinter:="\\serveur\GelSprinter GX 3000 sur Ne05:", Collate:=True
ActiveWindow.SelectedSheets.Delete
ActiveSheet.Next.Select
Next i

Application.DisplayAlerts = True
End Sub

J'ai aussi essayé avec l'instruction Sleep mais je ne sais pas comment déclarer Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Voilà... c'est un peu long tout ça mais j'ai préféré bien expliquer le problème.

Merci d'avance à ceux qui voudront bien m'aider.

Khanonji