Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
If Cell.Column = 3 Then ' Un test supplémentaire en dessous
If Cell.Value = "Rayon" Then
Cell.Offset(0, 2).FormulaR1C1 = "=ROUND(RC[-1]*0.25,1)"
Else
' ???
End If
End If
Next Cell
End Sub