Encore Merci c'est parfait

petite Question Didier : Le code fonctionne impeccablement bien pour un doublon, quid si il y a 2 3 4 ..bref plusieurs doublons, le MSGBOX n'en affiche qu'un seul...

Merci Didier tu as complètement cerné ma demande, et non je ne me vexe pas, car tu es un sachant dans le domaine, alors que moi non. Merci encore pour le temps passé et surtout pour la qualité de la réponse que je trouve très pédagogique.

Merci pour le retour

En effet ça mérite un complément d'information, 

dans l'onglet " introduire des Pylones", des données sont injectées en lançant la macro depuis une autre fichier. Ce fichier est une extraction pour l'exercice, le fichier principal est trop volumineux

La colonne f permet de recueillir l'identité de chaque pylone. Il peut y avoir doublon (car le pylone est sur 2 commune par exemple). Si Il y a doublon alors une alerte MSGBOX est déclenchée pour que l'operateur fasse une analyse (supprimer ou pas le doublon)

Voici le code que j'ai initié et qui me donne en partie satisfaction :

Sub Alerte()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 9).Value <> Cells(1, 11) Then
MsgBox "ATTENTION AU MOINS UN PYLONE EST EN DOUBLON!", , "CTO"
 End If

End Sub

Une fois le message affiché Je souhaite qu'il disparaisse définitivement lorsque l'operateur clique sur ok.

Encore Merci

Bonjour

Je suis débutant en vba, et je souhaite mettre un message d'alerte dans un tableau ou des doublons peuvent être présents dans 2 colonnes. avec des formules Je  compare les 2 colonnes pour que  la condition finale soit k1<>I1 alors doublons. Je souhaite écrire un code pour afficher le message.." Attention doublon" quand K1<>I1 et "PAS DE DOUBLON POURSUIVEZ" si K1=I1

J'espère que c'est clair et merci pour votre aide