Microsoft 365 Positionner sur Ligne précise

Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.Intersect(Target, Range("D6")) Is Nothing Then Exit Sub
    If Target = "" Then ActiveWindow.ScrollRow = 1: Exit Sub
    
    With ActiveSheet
        Set trouve = .Range("F:F").Find(Target, lookat:=xlWhole)
        If Not trouve Is Nothing Then
            'trouve.Select
            ActiveWindow.ScrollRow = trouve.Row
        End If
    End With
End Sub