besoin d'aide sur initialisation listbox

Bonjour à tous,
J'aurais besoin d'un petit coup de patte sur l'initialisation listbox.
Préambule : USF avec listbox et des texboxs. Quand je clic sur 1 ligne de ma listbox => affichage des valeurs des colonnes dans mes textboxs. Je peux modifier les données. puis quand clic sur bouton valide : enregistrement des nouvelles valeurs dans listbox et feuille excel.
Je voudrais savoir comment faire pour que lors de l'enregistrement, la listbox s'initialize MAIS que l'affichage de la listbox reste sur la ligne sélectionnée et pas sur la dernière ligne comme actuellement?
Voici mes codes:


Private Sub ListBox1_Click()
For x = 1 To 30
Me.Controls("TextBox" & x).Value = Cells(Me.ListBox1.ListIndex + 7, x)
Next x
End Sub


Private Sub Valide_Click()
For x = 1 To 30
With Me.ListBox1
Cells(.ListIndex + 7, x) = Me.Controls("TextBox" & x).Value
End With
Next x
Unload Me
UserForm_Initialize

UserForm4.Show
End Sub



Private Sub UserForm_Initialize()

Sheets("bd").Activate

With ListBox1
.List = Range("A7:AD" & Range("A65536").End(xlUp).Row).Value
.ColumnCount = 30
.ColumnWidths = "20;50;70;100;100;0;0;0;0;100;70;0;0;0;0;0;0;0;0;0;0;0;30;50;70;50;0;0;0;0"
End With

With Me.ListBox1
ListBox1.TopIndex = ListBox1.ListCount
ListBox1.ListIndex = ListBox1.ListCount - 1
End With
End sub

En espérant que vous puissiez m'aider

Merci par avance et bonne journée