Affichage colonnes suivant liste déroulante

Private Sub Worksheet_selectionchange(ByVal Target As Range)
Dim xrg As Range
Application.ScreenUpdating = False
If Target.Address = Range("f2").Address Then
  Set xrg = Range(Range("n3"), Cells(3, Columns.Count)).Find(Target, LookIn:=xlValues)
  If Not xrg Is Nothing Then
    Cells(3, Columns.Count).Select
    Application.Goto xrg, True
  End If
End If
If Target.Address = Range("f1").Address Then
  Set xrg = Range(Range("n4"), Cells(4, Columns.Count)).Find(Target, LookIn:=xlValues)
  If Not xrg Is Nothing Then
    Cells(4, Columns.Count).Select
    Application.Goto xrg, True
  End If
End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dercol&, xrg As Range, tablo, i&, j&

  Application.ScreenUpdating = False
  If Not Intersect(Target, Union(Range("f1"), Range("f2"))) Is Nothing Then
    Range(Cells(1, "n"), Cells(1, Columns.Count)).EntireColumn.Hidden = False
    Application.Goto Range("n3"), True
    dercol = Cells(3, Columns.Count).End(xlToLeft).Column
    tablo = Range(Cells(3, "n"), Cells(4, dercol)).Value

    If Range("F2") <> "*" Then
      For j = 1 To UBound(tablo, 2)
        If tablo(1, j) <> Range("F2") Then
          Cells(1, Range("m1").Column + j).EntireColumn.Hidden = True
        End If
      Next j
    End If

    If Range("F1") <> "*" Then
      For j = 1 To UBound(tablo, 2)
        If tablo(2, j) <> Range("F1") Then
          Cells(1, Range("m1").Column + j).EntireColumn.Hidden = True
        End If
      Next j
    End If
    Cells(Rows.Count, Columns.Count).Select
  End If
End Sub