Code vba pour que des cellules portent la même valeur

Sub Copie()
  Dim C As Range, Ligne As Long, Res As Variant, Res1 As Variant, Res2 As Variant
  Ligne = [J1:J10000].Find("*", [J10000], , , xlByRows, xlPrevious).Row
  For Each C In Range("J1", Cells(Rows.Count, 10).End(xlUp))
    If C.Value <> "" And C.Offset(, -1) = "" And C.Offset(, -2) = "" Then
      Res = C.Value
      Res1 = C.Offset(, -7).Value
      Res2 = C.Offset(, -4).Value
    ElseIf C.Row <= Ligne And C.Offset(, -3) = "" And C.Value <> "" And IsNumeric(C.Value) Then
      C.Offset(, -3) = Res
      C.Offset(, -5) = Res1
      C.Offset(, -4) = Res2
    End If
  Next C
End Sub