Private Sub CommandButton1_Click()
Dim DernLigne As Long
DernLigne = Range("B" & Rows.Count).End(xlUp).Row + 1
If TB_Nom = "" Or TB_Prenom = "" Or TB_Age = "" Then
MsgBox ("Tous les champs sont obligatoirs"), vbInformation, "Attention!!"
Else
Range("B" & DernLigne).FormulaR1C1 = TB_Nom
Range("C" & DernLigne).FormulaR1C1 = TB_Prenom
Range("D" & DernLigne).FormulaR1C1 = CDbl(TB_Age)
End If
If MsgBox("Voulez vous Saisir un autre?", vbYesNo, "Saisie") = vbYes Then
TB_Nom = ""
TB_Prenom = ""
TB_Age = ""
Else
Unload Me
End If
End Sub