Probleme Borders.Value excel 2010

Bonjour,

Voila mon petit soucis,

Je cherche par une fonction (un sub hein ^^) VBA a copier le style d'une cellule par rapport a une autre.

Le problème est que je n'arrive pas a accédé a la fonction a la valeur Value de mon border.
Ceux qui normalement permet d'afficher les bordures ou non.
La je n'ai rien qui passe.

 
Public Sub CopieStyle(ByVal Cible As Range, ByVal Origine As Range)
Dim DefBorder(0 To 5) As integer
    DefBorder(0) = xlEdgeBottom
    DefBorder(1) = xlEdgeLeft
    DefBorder(2) = xlEdgeTop
    DefBorder(3) = xlEdgeRight
    DefBorder(4) = xlInsideHorizontal
    DefBorder(5) = xlInsideVertical
      
With Cible
For i = 0 To 5
            With .Borders(DefBorder(i))
                .Color = Origine.Borders(DefBorder(i)).Color
                .LineStyle = Origine.Borders(DefBorder(i)).LineStyle
                .Value = Origine.Borders(DefBorder(i)).Value   '<------ Ligne a probleme
                .Weight = Origine.Borders(DefBorder(i)).Weight
            End With
Next i

Si je supprime la ligne .Value je n'est plus d'erreur.
je ne voit pas se qui peut généré cette erreur.
De plus si je ne prend pas cette valeur, les bordures sur la cellules de destinations sont toujours affiché. alors que al cellule d'origine n'as pas de bordure.