copy range via VBA

[white_flag]

I have the following code:

Option Explicit
Public Sub test()

Dim my_range As Range
Dim c, mc As Variant

Set mc = ActiveSheet.Cells(3, 4)
Set my_range = ActiveSheet.Range("B8:C20")

For Each c In my_range
        Worksheets("Feuil2").Cells(c.Row, c.Column).Value = "=" & Worksheets("Feuil1").Cells(c.Row, c.Column).Value & "*" & Worksheets("Feuil1").mc.Address()

Next c

End Sub

and the error is: Object does not support this method ...

for me, this code has to do this: Copy an value from an range add an address cell and make an new range.

 

[white_flag]

fix it