Sub test()
Dim Bav As String
Bav = ActiveWorkbook.Sheets("Données").Range("C33") 'supposons un montant de 3$
Bav = Replace(Bav, ",", ".")
nom = "nom" ' ceci pour donner un nom à la feuille
ActiveWorkbook.Sheets(nom).Range("S12").Formula = "=E18 *" & Bav
End Sub