Supprimer des lignes sous Excel

Réponse acceptée !


Salut,

il te suffit de faire une boucle de chaque cellule de ta première colonne, et de boucler sur la seconde pour vérifier.

Pas du tout testé mais en gros,

Dim i as Integer, j as integer

for i = X1 To 1 step -1  'X1 est la derniere ligne de feuile 1
   For j = X2 To 1 step -1    'X2 est la derniere ligne de feuile 2
      if sheets(2).Range("A" & j).Value = sheets(1).Range("A" & i).Value then
         sheets(1).Range("A" & i).Delete xlUp
      end if
   next j
next i

@++

---