Sub Bouton1_QuandClic()
Dim Rplage As Range, Cplage As Range, a As Range
Dim Rtest As Boolean, Ctest As Boolean
Set Rplage = Range("A5:C5", Cells(Rows.Count, 1).End(xlUp).MergeArea)
Set Cplage = [D1:D4].Resize(, Application.Count(Rows(3)))
Rplage.EntireRow.Hidden = True
Cplage.EntireColumn.Hidden = True
Set a = Intersect(Selection, Rplage)
If Not a Is Nothing Then
Rtest = True
a.EntireRow.Hidden = False
End If
Set a = Intersect(Selection, Cplage)
If Not a Is Nothing Then
Ctest = True
a.EntireColumn.Hidden = False
End If
If Not Rtest Then Rows.Hidden = False
If Not Ctest Then Columns.Hidden = False
Application.Dialogs(xlDialogPrint).Show
Rows.Hidden = False
Columns.Hidden = False
End Sub