Cooment rafraichir une liste?

Private Sub Bouton_Nouveau_Client_Click()

    With Formulaire_Client
        .Text_Titre = ""
        .Text_Nom_Client = ""
        .Text_Adresse_Client = ""
        .Text_Adresse_Client1 = ""
        .Text_Code_Postal = ""
        .Text_Ville = ""
        End With

    'Ouvrir formulair Client
    Formulaire_Client.Show
  [B]  UserForm_Initialize[/B]

End Sub

Private Sub Bouton_Enregistrer_Click()
        
        Dim Ligne_Suivante  As Long
    
    '   Vérifie si le titre a été entrée
        If Text_Titre = "" Then
            MsgBox "Vous devez choisir un titre."
            Exit Sub
        End If
        
    '   Vérifie si nom client a été entrée
        If Text_Nom_Client = "" Then
                MsgBox "Vous devez saisir un nom de client."
                Exit Sub
        End If

        
    '   Vérifie si l'adresse a été entrée
        If Text_Adresse_Client = "" Then
                MsgBox "Vous devez saisir une adresse."
                Exit Sub
        End If

    '   Vérifie si le code postal a été entrée
        If Text_Code_Postal = "" Then
        End If
        
    '   Vérifie si la ville a été entrée
        If Text_Ville = "" Then
                MsgBox "Vous devez saisir une ville."
                Exit Sub
        End If
        
          
    '   Vérifie que la feuille Clients est active
        Sheets("Clients").Activate
    '   Détermine la nouvelle ligne vide
        Ligne_Suivante = Range("A65000").End(xlUp).Row + 1
    '   On transfert les donner dans la feuille selectionner
        Cells(Ligne_Suivante, 1) = Text_Titre  '   Transfert le nom
        Cells(Ligne_Suivante, 2) = Text_Nom_Client
        Cells(Ligne_Suivante, 3) = Text_Adresse_Client
        Cells(Ligne_Suivante, 4) = Text_Adresse_Client1
        Cells(Ligne_Suivante, 5) = Text_Code_Postal
        Cells(Ligne_Suivante, 6) = Text_Ville
      
        
        'Permet de remetre a zero tout les champs du fotmulaire
        Dim CTRL As Control
        For Each CTRL In Me.Controls
        If TypeOf CTRL Is MSForms.TextBox Then
        CTRL = ""
        ElseIf TypeOf CTRL Is MSForms.ComboBox Then
        CTRL.ListIndex = -1
        End If
        Next
        ' On ferme le formulaire
        Unload Me
     [B]Unload Formulaire_recette[/B]
    [B] Sheets("Recette").Select[/B]
    [B] Formulaire_recette.Show[/B]
End Sub