vba mgsbox

[belsamis01]

Bonjour à toutes et à tous,

Voici mon problème,

J'ai planning dans lequel il y a en colonne D = client et colonne E = salon
Si il y a un doublon sur les lignes suivantes ayant les mêmes données en colonne D et E.
Avoir un msgbox

Voici mon code qui fonctionne que sur une seule colonne

' Public Flag As Boolean

'Private Sub Worksheet_Change(ByVal Target As Range)
'If Flag Then Exit Sub
' If Not Application.Intersect(Target, Columns("a")) Is Nothing Then
' If Target.Count > 1 Then Exit Sub
' If Application.CountIf(Range("a:a"), Target) > 1 Then
' Flag = True
' MsgBox ("Donnée déjà saisie")
' Target.ClearContents
' Flag = False
' End If
' End If
'End Sub