Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
If Target.Address = "$F$1" Then
Me.PivotTables("Tableau croisé dynamique1").CalculatedFields("in EUR") _
.StandardFormula = "='Amount in USD'*" & Replace(Target, ",", ".")
End If
End Sub