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("BD").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Range("A" & L).Value = TextBox_date
Range("B" & L).Value = TextBox_nom
Range("C" & L).Value = TextBox_prenom
Range("D" & L).Value = TextBox_infolog
Range("E" & L).Value = ComboBox_chef
Range("G" & L).Value = ComboBox_certification
Range("H" & L).Value = ComboBox_montage
Range("J" & L).Value = TextBox_observation
End If
End Sub