https://www.cjoint.com/c/FFvhYmkoUBv
Voici le fichier test par contre il y a peut etre un ou deux beug en fonction des versions...
Ca ne serait pas ça qui m'embete par hasard ?
Private Sub MAJ(lig As Long)
Dim I As Byte
For I = 2 To 14
'If I <> 3 Then
Ws.Cells(lig, I) = Me.Controls("Box" & I).Value
If I = 3 Then Ws.Cells(lig, I) = CDate(Me.Controls("Box" & I).Value)
If I = 10 Then Ws.Cells(lig, I) = CDate(Me.Controls("Box" & I).Value)
If I = 11 Then Ws.Cells(lig, I) = CDate(Me.Controls("Box" & I).Value)
If I = 12 Then Ws.Cells(lig, I) = CDate(Me.Controls("Box" & I).Value)
'If I = 13 Then Ws.Cells(lig, I) = CDate(Me.Controls("Box" & I).Value)
Next I
End Sub