Merci Fulltitane pour tes explications.
Ton astuce fonctionne bien.
Etant donné que j'ai, en réalité, beaucoup de lignes la macro suivante permet de faire ce que tu m'as expliqué automatiquement.
For i = 2 To 420
Range(Cells(i, 1), Cells(i, 1)).FormulaR1C1 = Range(Cells(i, 1), Cells(i, 1)).Value
Next i