Masquer des colonnes en fonction du contenu d'une celluele

Sub For_Each_Next_Plage()
Dim FL1 As Worksheet, Cell As Range, Plage As Range, NoCol As Integer, NoLig As Long
Dim Var1
  Set FL1 = Worksheets("Feuil1")
    With FL1
       'ou en utilisant l'objet Plage (range) de la plage
        Set Plage = .Range("K17:DE88")
        For Each Cell In Plage
          'Valeur de la cellule lue
            Var1 = Cell.Value
            If Var1 = "DE" Then
            NoCol = Cell.Column
            NoLig = Cell.Row
            Rows(NoLig).EntireRow.Hidden = False 'Et si oui, on affichie
            Columns(NoCol).EntireColumn.Hidden = False 'Et si oui, on affichie
            End If
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub

Const plage = "C2:M30"
Const valeur = "DE"

Public Sub RAZ()
Range(plage).Rows.Hidden = False
Range(plage).Columns.Hidden = False
End Sub

Public Sub Masquer()
Dim obj As Object, tadr, li As Long, co As Long, plage2 As Range
Dim nbli As Long, nbco As Long, coco As String, adr As String, lili As Long
nbli = Range(plage).Rows.Count
nbco = Range(plage).Columns.Count
For li = 1 To nbli
  adr = Range(plage).Cells(li, 1).Address
  lili = Split(adr, "$")(2)
  Set plage2 = Range(plage).Rows(li)
  Set obj = plage2.Find(valeur, , , xlWhole)
  If obj Is Nothing Then Rows(lili).Hidden = True
Next li
For co = 1 To nbco
  adr = Range(plage).Cells(1, co).Address
  coco = Split(adr, "$")(1)
  Set plage2 = Range(plage).Columns(co)
  Set obj = plage2.Find(valeur, , , xlWhole)
  If obj Is Nothing Then Columns(coco).Hidden = True
Next co
End Sub