Afficher la dernière ligne pour l'ascenseur pour une fenêtre

Bonjour,

Je réalise une fenêtre de saisie permettant de remplir un tableau.

Cela fonctionne bien sauf un petit paramètre de "confort". Ce paramètre est de sélectionner la première ligne vide de mon tableau directement à l'ouverture de la fenêtre.

Il y a un bouton Ascenseur lié au numéro de ligne (SpinButton1 dans le code) qui me permet de naviguer dans le tableau. Sauf qu'à l'ouverture de la fenêtre, ce dernier reste vide et si j'appuie sur le bouton, il commence en 1ère ligne de mon tableau.????

J'ai préparé une fonction pour calculer le numéro de la 1ère ligne vide (Dernière fonction) qui fonctionne bien. Mais je n'arrive pas la lier au bouton Ascenseur.

Je souhaiterais savoir:

• Comment afficher le numéro de la ligne vide directement à l'ouverture de la fenêtre.
• Comment limiter l'ascenseur (Mini la 1ère ligne du tableau; Maxi la 1ère ligne vide)

Je vous mets les codes.

Public Sub UserForm1_Initialize()  'initialisation de la fenetre

    UserForm1.Height = 336.5
    UserForm1.Width = 619.5
    
    Call calcul_ligne_vide
    
    SpinButton1.Min = 4             'mini du bouton Ascenseur
    SpinButton1.Max = ligne_D       'maxi du bouton Ascenseur
    
    Call AdapterTailleFormAEcran    'Taille de la fenetre

End Sub
-----------------------------------------------------------------
Public Sub SpinButton1_Change()      'Changement bouton Ascenseur
    
    ligne = SpinButton1.Value
    
    If ligne = ligne_D Then
        Call nouvelle_saisie
    Else
        Call modif
    End If

End Sub
------------------------------------------------------------------
Public Sub ouvrir_userform()    'ouverture userform

'    ActiveSheet.Unprotect
    
    Application.ScreenUpdating = False  'figer actualisation ecran
    
    Call nouvelle_saisie    'appel fonction nouvelle_saisie
    
    UserForm1.Show  'afficher userform
    
    Application.ScreenUpdating = True   'remise en route actualisation
    
'    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    
End Sub
-------------------------------------------------------------------
Public Sub calcul_ligne_vide()  'determination premiere ligne vide

    Dim d As Integer
    
    d = 4
    Do While Worksheets("LUP").Cells(d, 1).Value <> ""       'boucle 
recherche valeur differente de ""
        d = d + 1
        Worksheets("LUP").Cells(d, 1).Select
    Loop
    
    ligne_D = d
    
    'Worksheets("Feuil1").Range("A1").Value = d  'Essai si ca marche

End Sub

Cordialement,