Private Sub CommandButton1_Click() 'bouton Valider
Dim i%
For i = 1 To 3 '3 à adapter
If IsDate(Me("TextBox" & i)) Then Cells(ActiveCell.Row, i) = CDate(Me("TextBox" & i)) _
Else Cells(ActiveCell.Row, i) = Me("TextBox" & i)
Next
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim i%
For i = 1 To 3 '3 à adapter
Me("TextBox" & i) = Cells(ActiveCell.Row, i)
Next
End Sub