Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'début de condition
'à partir de a3, si la cellule n'est pas vide
If Not Intersect(Target, Range("a3:a" & Range("a65536").End(xlUp).Row)) Is Nothing Then
'si la valeur est "soldé", alors la cellule décalée de deux vers la droite,
'pour atteindre la colonne c, voit sa formule transformée en valeur
If Target = "soldé" Then Target.Offset(, 2).Value = Target.Offset(, 2).Value
'fin de condition
End If
'fin de la macro
End Sub