Formule affichage valeurs

Sub Convertir()
 Dim TabTemp, MaFormule As String
 With Worksheets("Feuil1") ' à adapter 
 For i = 1 To 10 ' de la ligne 1 à la ligne 10 à adapter 
    If .Range("A" & i).HasFormula Then  ' si en colonne A à adapter dans toutes les instructions où le nom de colonne apparait
        MaFormule = "="
        TabTemp = Split(Right(.Range("A" & i).Formula, Len(.Range("A" & i).Formula) - 1), "+")
        For j = LBound(TabTemp) To UBound(TabTemp)
            MaFormule = MaFormule & "+" & Evaluate(TabTemp(j))
        Next
        .Range("A" & i).Formula = MaFormule
    End If
 Next
 End With
End Sub