Effacer le contenu d'une cellule avec adresse de la cell

Coucou petit soucis tout bête

J'ai un programme me permettant de comparer deux colonnes A et D comportant des N° de commande , je veux trouver celle de la colonne A presente dans la colonne D puis sortir en colonne P les N° de commande communs au deux avec en meme temps le prix et la date du N° de commande présent en A .

Pour cela je sors les N° de colonne en P¨puis l'adresse de la cellule en colonne A comportant ce N° de commande

Je veux donc ensuite me servir de la l'adresse de la colonne A pour effacer le contenu de la cellule en A à l'adresse indiqué

Voici mon code :

  
  Set d1 = CreateObject("Scripting.Dictionary")
  Set plage1 = Range("A1:a" & [a185000].End(xlUp).Row)
  Set plage2 = Range("D2:c" & [D65000].End(xlUp).Row)
  For Each C In plage2
     d1.Item(C.Value) = d1.Item(C.Value) & C.Address & "-"
  Next C
  i = 2
  For Each C In plage1
    If d1.exists(C.Value) Then
       Cells(i, "P") = C
       Cells(i, "Q") = C.Address
       Cells(i, "R") = d1.Item(C.Value)
       Cells(i, "A") = " " ' marche pas efface la ligne de i et non celle de l'adresse trouvé dans la colonne Q, ligne i 
      C.Address = " "  ' ne sait pas comment le formuler

       i = i + 1
    End If
  Next C

Merci à vous

Bonjour,

Range(C.Address).ClearContents

Bonjour,