Defusioner les cellules en les remplissants! (Probleme de Date)

Bonjour,

J'ai un fichier .xls dont de nombreuses lignes et de nombreuses colonnes sont fusionnés.
J'aimerai défusionner toute les cellules de mon fichier afin de pouvoir mieux exploiter mon fichier sur une BDD.

Voilà ce que j'ai essayé :

Sub défusionner()
    ' supprime toutes les fusions de cellules
    ' toutes les cellules d'une fusion reçoivent la valeur ou la formule d'origine
    Dim c1 As Range, c2 As Range, plage As Range, valeur As Variant
    Application.ScreenUpdating = False
    For Each c1 In ActiveSheet.UsedRange
        If c1.MergeCells Then
            valeur = c1.Formula
            If IsDate(c1.Value) Then c1.Value = Format(CDate(c1.Value), "dd/mm/yy")
            Set plage = c1.MergeArea
            plage.UnMerge
            For Each c2 In plage
            If IsDate(c2) Then c2.Value = Format(CDate(c2.Value), "dd/mm/yy")
                c2.Formula = valeur
            Next c2
        End If
    Next c1
    Application.ScreenUpdating = True
End Sub

La défusion s'éxecute correctement, le problème qui se pose qu'avec les colonne des date.

Exemple: Si ma cellule fusionnée contient la date 01/09/2014; cela me donne apres l'execution de la macro une date 09/01/2014.