=SI($B2="XXX";$A2;$D2)
EDITION: Salut Bernard=SI(B1="xxx";A1;"")
=SI(B1="xxx";A1;D1)
=SI(ESTTEXTE(A2);DATEVAL(A2);DATEVAL(TEXTE(A2;"mm/jj/aaaa")))
Sub TEST()
'
Dim der As Integer
der = Range("A65536").End(xlUp).Row
Range("B1").Select
ActiveCell.FormulaR1C1 = "=SI(ESTTEXTE(RC[1],-1);DATEVAL(RC[1],-1);DATEVAL(TEXTE(RC[1],-1);"mm/jj/aaaa")))"
der = Range("A65536").End(xlUp).Row
' Recopiage des autres cellules
Range("B1").Select
Selection.Copy
Range("B2:B" & der).Select
ActiveSheet.Paste
End Sub
"=IF(ISTEXT(R[-13]C[-1]),DATEVALUE(R[-13]C[-1]),DATEVALUE(TEXT(R[-13]C[-1],""mm/jj/aaaa"")))"