Sub Macro5()
'Préparation de la colonne pour la formule
Range("H1").Select
ActiveCell.FormulaR1C1 = "Datum"
'Intégration et copie de la formule
Range("H2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]>0,DATE(20&RIGHT(RC[-1],2),MID(RC[-1],3,2),LEFT(RC[-1],2)),"""")"
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H500"), Type:=xlFillDefault
'Forcer le calcul sur la sélection
Range("H2:H500").Select
Calculate
'Copie dans colonne à droite de la colonne des résultats (valeurs uniquement)
Columns("H:H").Select
Selection.Copy
Columns("I:I").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "m/d/yyyy"
'Elimination des 2 colonnes précédemment utilisées
Columns("G:H").Select
Range("H1").Activate
Selection.Delete Shift:=xlToLeft
'Retour au point d'origine de la feuille
Range("A1").Select
End Sub