Sub hub()
If Range("A:A").SpecialCells(xlCellTypeVisible).Areas(1).Count > 1 Then
Set Plage1 = _
Sheets("HS").Range("A1:C" & Sheets("HS").Range("C60").End(xlUp).Row)
Plage1.PrintPreview
ElseIf Range("A:A").SpecialCells(xlCellTypeVisible).Areas(2).Item(1) <> "" Then
Set Plage1 = _
Sheets("HS").Range("A1:C" & Sheets("HS").Range("C60").End(xlUp).Row)
Plage1.PrintPreview
End If
Sheets("HS").Rows.Hidden = False 'réafficher toutes les lignes
End Sub