imprimer PDF, ça y est presque...

Bonjour,

je cherche =E0 imprimer des pages (pdf et htm) par macro en utilisant
leur adresses contenues dans un fichier excel.
J'ai cr=E9=E9 un formulaire avec une commande RefEdit qui s=E9l=E9ctionne
la plage de cellule contenant les fichiers =E0 imprimer et j'exploite
cette donn=E9es dans cette macro:

Sub ImprimeDevis()
Dim cellule As Range
Dim SelRange As Range
Dim Addr As String

Addr =3D UserForm1.RefEdit1.Value
Set SelRange =3D Range(Addr)

For Each cellule In SelRange

ShellExecute 0&, "Print", "Adresse de mes fichiers" & cellule & ".pdf",
"", "", 0&

Next
End Sub

Mon probl=E8me c'est que cette saloperie n'imprime pas tous les fichiers
selectionn=E9s mais seulement le fichier contenu dans ma premi=E8re
cellule selectionn=E9e par RefEdit.

Je me suis dis que c'=E9tait parce que la boucle allait trop vite donc
j'ai ins=E9r=E9 Application.wait second(now()) +2
=E7a marche toujours p=F4.

Du coup j'en appelle de nouveau aux bonnes volont=E9s des mpfeiens.
Merci.