ub PRC_Mail()
Dim i As Integer
For i = Range("A40").End(xlUp).Row To 15 Step -1
Select Case i
Case 15, 25, 29, 32, 38
GoTo suite
Case Else
If IsEmpty(Cells(i, 1).Value) Then Rows(i).Delete
End Select
suite:
Next i
Application.ActivePrinter = "Amyuni PDF Converter sur LPT1:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
ActivePrinter:="Amyuni PDF Converter sur LPT1:", Collate:=True
End Sub