Sub Impression()
Dim sChemin As String
Dim hwnd As Long, i As Long
Dim LastRow As Long
LastRow = ShParam.Range("B" & Rows.Count).End(xlUp).Row
For i = RDepart To LastRow
sChemin = ShParam.Range("A1") & "\" & ShParam.Range("B" & i)
ShellExecute hwnd, "Print", sChemin, "", "", 1
Application.StatusBar = i
Next i
End Sub