End With
Worksheets("Imprimer").Activate
For i = 25 To 1 Step -1
If Cells(i, 2) = "" Then Rows(i).Delete
Next
'Sheets("Imprimer").Cells.Select
If MsgBox("Voulez-vous imprimer ce formulaire ?", vbYesNo + _
vbExclamation, "Avertissement") = vbYes Then
Application.Dialogs(xlDialogPrint).Show
End If
Worksheets("Mariages").Activate
End Sub