même colonne

Bonjour, Je suis débutant en VBA. J'aimerai savoir s'il existe une solution pour décaler une case s'il y en a 2 similaires dans la colonne. J'ai essayé avec un boucle sur les colonnes. Ma condition s'appuyant sur "ActiveCell", la boucle ne marche pas. Sub miseajour()...