Private Sub commandbutton2_Click() ' === Bouton AJOUTER LA LIGNE =====
Dim l As Long
Dim num_lig As Integer
With Sheets("Effectif") '--- La feuille usuelle en activité ----------
'-------------------------------------------
If MsgBox("Etes-vous certain de vouloir INSERER cette nouvelle ligne ?", vbYesNo, "Demande de confirmation") = vbYes Then
'----------------------------------------
'---- Affecte les cellules de la feuille "en cours" en se positionnant sur la première ligne vide
l = 0
l = Range("A65536").End(3).Row + 1 'Permet de se positionner sur la ligne de tableau définie par Nbr
.Range("A" & l).Value = TextBox1
.Range("B" & l).Value = TextBox2 'Insère la donnée de la liste déroulante dans la colonne B
.Range("C" & l).Value = TextBox3
End If
End With
UserForm_Initialize '<-------------------Ici
End Sub