Sub If_Then()
Dim PlagImp As Range
[H10:L13].Delete Shift:=xlUp
If [H10] <> "" Then
'H10 n'est pas vide, on continue
[H9] = "Enregistrements rejetés"
Set PlagImp = [H9].CurrentRegion
Else
'H10 est vide on vient directement ici
Set PlagImp = [B9].CurrentRegion
End If
ActiveSheet.PageSetup.PrintArea = PlagImp.Address
With ActiveSheet.PageSetup
.LeftFooter = "&F imprimé le &D à &T"
.CenterFooter = "&P / &N"
.RightFooter = "Guichet "
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.PrintErrors = xlPrintErrorsDisplayed
End With
Application.Dialogs(xlDialogPrintPreview).Show
End Sub