Positionner ligne adresse

Sub afficher() 'associer à un bouton ou raccourci clavier
Cells.EntireRow.Hidden = False 'affiche lignes
End Sub

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Liste")
    NoCol = 1 'lecture de la colonne A
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = nom Then
        Rows("2:" & NoLig - 1).EntireRow.Hidden = True 'masque lignes
        Else
        MsgBox "Nom inconnu!", vbCritical, "Recherche"
        Exit Sub
        End If
    Next
    Set FL1 = Nothing
End Sub

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Liste")
    NoCol = 1 'lecture de la colonne A
    On Error Resume Next
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = nom Then
        Rows("2:" & NoLig - 1).EntireRow.Hidden = True 'masque lignes
        End If
    Next
    Set FL1 = Nothing
End Sub

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Liste")
    NoCol = 1 'lecture de la colonne A
    Application.ScreenUpdating = False
    On Error Resume Next
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = nom Then
        Rows("2:" & NoLig - 1).EntireRow.Hidden = True 'masque lignes
        If NoLig = 100 Then Exit For ' a adapter
        End If
    Next
    Set FL1 = Nothing
    Application.ScreenUpdating = True
End Sub

Dim derligne As Long
derligne = Cells(Rows.Count, "A").End(xlUp).Row