XL 2013 masquer des lignes sous conditions

Option Explicit

Sub test()
Dim F1 As Range
Dim i As Integer

Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Set F1 = Sheets("Feuil1").Range("U2:U" & DernLigne)

    For i = 1 To F1.Rows.Count
        
            If F1(i, 1).Value = F1(i, 2).Value Then
            Rows(i & ":" & i).EntireRow.Hidden = True
            End If
    Next i
End Sub

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Long 'déclare la variable I (Incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau des Lignes)
Dim J As Long 'déclare la variable J (incrément)

Application.ScreenUpdating = False 'masque les rafraîchissement d'écran
Set O = Sheets("Feuil1") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
    'condition : si la donnée ligne I colonne 21 est égale à la donnée ligne I colonne 22 de TV
    If TV(I, 21) = TV(I, 22) Then
        ReDim Preserve TL(J) 'redimensionne le tableau de ligne TL
        TL(J) = I 'récupère la ligne I dans le tableau TL(J)
        J = J + 1 'indrémente J
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
For I = 0 To UBound(TL) 'boucle sur tous les éléments du tabelau TL
    O.Rows(TL(I)).Hidden = True 'masque la ligne correspondant à l'élément
Next I 'prochain élément de la boucle
Application.ScreenUpdating = True 'affiche les rafraîchissement d'écran
End Sub

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    Cancel = -1
    Select Case c.Address
    Case "$A$1"
        Columns(1).Insert
        Range("a2:a" & Cells(Rows.Count, 22).End(xlUp).Row).FormulaR1C1 = "=EXACT(RC[21],RC[22])"
        Range("a1") = "?"
        Range("a1:aa1000000").AutoFilter Field:=1, Criteria1:="FAUX"
        Columns(1).ColumnWidth = 0.1
    Case "$B$1"
        c.AutoFilter
        Columns(1).Delete Shift:=xlToLeft
    End Select
End Sub

Sub Test()
Dim Nlig&, nCol&, xrg As Range, T
  T = Timer: Application.ScreenUpdating = False
  With Sheets("Feuil1")
    .Rows.Hidden = False
    Nlig = .Cells(.Rows.Count, "a").End(xlUp).Row
    If Nlig = 1 Then Exit Sub
    nCol = .UsedRange.Column + .UsedRange.Columns.Count
    With .Rows("2:" & Nlig)
      .Columns(nCol).FormulaLocal = "=(1/(u2<>v2))"
      On Error Resume Next
      Set xrg = .Columns(nCol).SpecialCells(xlCellTypeFormulas, 16)
      On Error GoTo 0
      If Not xrg Is Nothing Then xrg.EntireRow.Hidden = True
      .Columns(nCol).Delete
    End With
    Application.Goto [a1], True
  End With
  MsgBox Round((Timer - T), 2) & " sec."
End Sub