Sub Test()
'Macro par Dan pour Calendar - 11/04/06
'Macro pour [B]Lien supprimé[/B]
Dim c as Range
For Each c In Range('A1:A10')
If Not IsDate(c) Then
c.Offset(0, 1) = c.Value
End If
Next c
End Sub
PS : un petit merci à Hervé par le ISDATE que je cherchais.