bonjour,
ce n'est pas un problème de format de cellule mais un problème de déclaration de variable :
Une possibilité :
Sub test()
Dim Resultat(1, 1) As Double
Resultat(1, 1) = Range("A1").Formula
Range("D6").Value = Resultat(1, 1)
End Sub
Après, bien sur, si ta cellule est correctement formatée c'est mieux... Œuf corse !
A+