XL 2019 Sélectionner toutes les cellules avec une valeur X

Sub Masquer()
'se lance par les touches Ctrl+M
Dim v, r As Range
v = ActiveCell
Application.ScreenUpdating = False
Afficher 'RAZ
With ActiveSheet.UsedRange
    .Replace v, "#N/A", xlWhole
    .SpecialCells(xlCellTypeConstants, 16).Select
    Selection = v
    For Each r In .Rows
        If Intersect(r, Selection) Is Nothing Then r.Hidden = True
    Next
    For Each r In .Columns
        If Intersect(r, Selection) Is Nothing Then r.Hidden = True
    Next
End With
End Sub

Sub Afficher()
'se lance par les touches Ctrl+A
ActiveCell.Select
Rows.Hidden = False
Columns.Hidden = False
End Sub