Insertion valeur dans cellule

Dim Ligne As Integer 'Variable pour connaitre le numéro de la derniere ligne vide
Ligne = NomdeTaFeuille.Range("A65536").End(xlUp).Row + 1 ' On identifie la dernière ligne vide en partant du bas
With NomdeTaFeuille
.Range("A" & Ligne) = TextBoX1 ' On écrit dans chaque colonne les valeurs des différents controls
.Range("B" & Ligne) = TextBox2
'Ect.........
End With

Cliquez pour agrandir...

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ArrD
ArrD = Split(TextBox1.Text, Application.International(xlDateSeparator))
'compte le nb de "/" inclus dans la date pour éviter la saisie de dates
'incomplètes ou ambigües type 02/02
If UBound(ArrD) <> 2 Then
MsgBox ("Attention, saisir jour/ mois / année !")
GoTo Fin
End If
If Not IsDate(TextBox1.Value) Then
MsgBox ("Attention, il faut entrer un format de date valide jj/mm/AA !")
GoTo Fin
End If

Exit Sub
Fin:
Cancel = True 'empêche la sortie du textbox en cours
TextBox1.SetFocus 'redonne le focus au textbox
TextBox1.SelStart = 0 'positionne le curseur au début du textbox
TextBox1.SelLength = Len(TextBox11) 'sélectionne le texte dékà entré
End Sub

Cliquez pour agrandir...

'............dit pls haut
Dim Ladate As Date
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yy")
Ladate = CDate(TextBox1.Value)

With NomdeTaFeuille
.Range("A" & Ligne).NumberFormat = = "dd-mmm-YYYY"
.Range("A" & Ligne) = Ladate

Cliquez pour agrandir...