Format date à partir d'un textbox

.Cells(dl, CInt(ctl.Tag)) = CDate(ctl.Value)

Private Sub CommandButton1_Click()
Dim ctl As Control, dl&
With Feuil3
  dl = .Range("A65000").End(xlUp).Row + 1
  For Each ctl In Controls
    Select Case ctl.Tag
      Case ""
      Case 9 To 11, 15
        .Cells(dl, ctl.Tag) = CDate(ctl.Value)
      Case Else
        .Cells(dl, Int(ctl.Tag)) = ctl.Value
    End Select
  Next
End With
Unload Me
End Sub

Private Sub CommandButton1_Click()
Dim ctl As Control, dl&
With Feuil3
    dl = .Range("A65000").End(xlUp).Row + 1
    For Each ctl In Controls
        If IsDate(ctl) Then
            If ctl.Tag = "9" Or ctl.Tag = "10" Or ctl.Tag = "11" Or ctl.Tag = "15" Then
                .Cells(dl, Int(ctl.Tag)) = CDate(ctl.Value)
            End If
        End If
    Next
End With
Unload Me
End Sub