Macro pour supprimer des valeurs identiques

Bonjour j'ai un tableau avec une Colonne D et E et je n'arrive pas a creer la macro pour si D1 = E2 then clearcontents D1 pour le faire pour toutes les lignes

(D1 E1) (D2 E2) etc

Merci

Hello un test

Sub test()

nbligne= Range("D" & Rows.Count).End(xlup).Row

For i = 1 to nbligne

     If Range("D" & i) = Range("E" & i) Then Range("D"& i) = ""

Next i

End sub

@+