Sub test()
Dim MaDate As Date
MaDate = "01/03/10"
MaDate = MaDate + 1
Cells(1, 1) = MaDate [B][COLOR=seagreen]' OK[/COLOR][/B]
Cells(1, 2).FormulaLocal = MaDate [COLOR=seagreen][B]' OK[/B][/COLOR]
End Sub
Sub test2()
Dim MaDate
MaDate = "01/03/10"
Cells(1, 1) = MaDate [COLOR=seagreen][B]' Pas OK[/B][/COLOR]
Cells(1, 2).FormulaLocal = MaDate [COLOR=seagreen][B]' OK[/B][/COLOR]
End Sub
Sub test3()
Dim MaDate
MaDate = "01/03/10"
Cells(1, 1) = CDate(MaDate) [COLOR=seagreen][B]' OK[/B][/COLOR]
Cells(1, 2).FormulaLocal = CDate(MaDate) [COLOR=seagreen][B]' OK[/B][/COLOR]
End Sub
Sub test4()
Dim MaDate
MaDate = "01/03/10"
Cells(1, 1) = Format(MaDate, "dd/mm/yy") [COLOR=seagreen][B]' Pas OK[/B][/COLOR]
Cells(1, 2).FormulaLocal = Format(MaDate, "dd/mm/yy") [COLOR=seagreen][B]' OK[/B][/COLOR]
End Sub