Masquer toutes les lignes et colonnes vides d'une feuille

Bonjour,

j'essaie de construire une macro qui masquerait toutes les lignes et colonnes vides de la feuille active.

Pour cela, je recherche tout d'abord la dernière ligne et dernière colonne utilisées,

puis il faudrait donc masquer toutes les colonnes à partir de la dernière colonne utilisée + 1,

même chose pour les lignes.

Je bloque après avoir trouvé ma dernière ligne et colonne, je ne sais pas comment étendre la sélection jusqu'à "la fin de la feuille",

sans avoir à écrire en dur l'adresse de la dernière ligne/Colonne de la feuille actuelle (car cette valeur est différente selon les versions d'excel).

Je souhaiterai aussi, si possible bien sur, éviter d'utiliser les méthodes de Sélection genre "XlToRight".

Voici mon code, qui pour le moment ne masque que la ligne et la colonne juste après la dernière cellule :

Sub Masquer()

Dim Derniere_ligne As Integer
Dim Derniere_colonne As Integer

With ActiveSheet
    .Cells.Columns.Hidden = False
    .Cells.Rows.Hidden = False
    Derniere_ligne = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Derniere_colonne = .Cells.Find("*", , , , xlByRows, xlPrevious).Column
    .Rows(Derniere_ligne + 1).EntireRow.Hidden = True
    .Columns(Derniere_colonne + 1).EntireColumn.Hidden = True
End With

End Sub

Bonjour

A tester

Sub Masquer()
Dim Derniere_ligne As Long
Dim Derniere_colonne As Integer

  With ActiveSheet
    .Cells.Columns.Hidden = False
    .Cells.Rows.Hidden = False
    Derniere_ligne = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Derniere_colonne = .Cells.Find("*", , , , xlByRows, xlPrevious).Column
    .Rows(Derniere_ligne + 1 & ":" & Rows.Count).Hidden = True
    .Range(.Cells(1, Derniere_colonne + 1), .Cells(1, Columns.Count)).EntireColumn.Hidden = True
  End With
End Sub

Parfait, encore une fois merci Banzai64 !