Private Sub enreg_Click()
Dim lr As ListRow
Dim c As Range
If IsDate(empr) = True Then
Range("a1") = empr
Else
MsgBox "Format de date incorrect !" & Chr(10) & "La saisie doit être de type jj/mm/aaaa"
End If
If IsDate(retour) = True Then
Range("a1") = retour
Else
MsgBox "Format de date incorrect !" & Chr(10) & "La saisie doit être de type jj/mm/aaaa"
End If
Set lr = Feuil5.ListObjects(1).ListRows.Add(1)
lr.Range(1, 1) = Me.nom
lr.Range(1, 2) = Me.prenom
lr.Range(1, 3) = Me.service
c.Offset(0, 3) = Me.CmbB_Designations
c.Offset(0, 2) = Me.CmbB_Constructeurs
c.Offset(0, 4) = Me.CmbB_Modeles
lr.Range(1, 7) = Me.numeroate
lr.Range(1, 8) = DateValue(Me.empr)
lr.Range(1, 9) = DateValue(Me.retour)
lr.Range(1, 10) = Me.zone
ThisWorkbook.Save
Unload Me
End Sub