laisser visible la ligne selectionnée de plusieurs listview "Résolu"

Private Sub UserForm_initialize()
With ListView1
With .ColumnHeaders '65
            .Clear
            .Add , , "a", 65
        End With
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
        .HideSelection = False '<----- Ligne ajoutée
End With
With ListView2
With .ColumnHeaders '495
            .Clear
            .Add , , "1", 60
            .Add , , "2", 60
            .Add , , "3", 60
        End With
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
        End With
Remplir_ListView1 ("z")
End Sub