XL 2016 CODE VBA POUR DETERMINER LA DERNIERE LIGNE DE LA FEUILLE ACTIVE

Bonjour à tous,

Tout d'abord c'est ma 1ére demande... Alors soyez cool svp

J'ai créer un formulaire VBA pour une base de donnée et jusque là tout va bien !

Mon problème est le suivant:

Pour la MAJ de cette base de donnée je doit dispatcher les lignes dans plusieurs feuilles du même classeur.
Quand je suis sur les feuilles générer et que je veux utiliser mon formulaire je constate que mon nouveau contact se créer bien sur la feuille mais sur le n° de la dernière ligne de ma feuille BDD. Donc pas celle que j'utilise....

Je pense que cela viens de ma référence dans ma VBA pour atteindre la dernière ligne mais je ne sais pas par quoi la remplacer pour qu'elle prenne en compte la dernière ligne de la feuille (ou onglet) que j'utilise.


PS: Merci à tous par avance pour votre aide !

Voici mon code ci-dessous:

Private Sub ComboBox6_Change()

End Sub

'Pour le formulaire

Private Sub UserForm_Initialize()

Dim J As Long
Dim I As Integer

ComboBox1.ColumnCount = 1 'Pour la liste déroulante SOCIETE
ComboBox1.List() = Array("SAVAC", "SBS", "LCJ", "SAVAC VOYAGES", "SPN")

Set Ws = Sheets("BDD") 'Correspond au nom de votre onglet dans le fichier Excel

With Me.ComboBox1


For J = 2 To Ws.Range("C" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("C" & J)
Next J

End With

For I = 1 To 18
Me.Controls("TextBox" & I).Visible = True
Next I

End Sub


'Pour le bouton Nouveau contact

Private Sub CommandButton1_Click()

Dim L As Integer

If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
L = Sheets("BDD").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide

Range("A" & L).Value = TextBox19