Doublon et message

Bonjour, je cherche à repérer les doublons colonne D à partir de D2:

Une fois les doublons repérer les citer en messages vie une boucle.

Dans le message je veux faire apparaître la valeur du doublon colonne D (Cel.value) ainsi que le nom associé à ce doublon colonne C, comment prendre la valeur de la colonne C dans la deuxième partie du message ?

Voici mon code qui affiche que les valeurs de la colonne D

Sub Doublon()

    Dim Plage As Range
    Dim Cel As Range

    With Worksheets("source")

    'en colonne "D" à partir de D2
       Set Plage = .Range(.Cells(2, 4), .Cells(.Rows.Count, 4).End(xlUp))

    End With

    'boucle la plage de la feuille "Compte" et cherche chaque valeur
   'en correspondance exacte dans la plage de la feuille "Source"
   For Each Cel In Plage

        If Application.CountIf(Plage, Cel.Value) > 1 Then

               MsgBox "Attention, la valeur '" & Cel.Value & "' est en doublon" _
                   & " veuillez vérifier la colonne C'" & Cel.Value _
                   & "' avant de pouvoir valider !"

        End If

        Next Cel

End Sub

Existe t il un code pour lui dire genre

& " veuillez vérifier la colonne C'" & Cel.Valuedegauche ou -1 ? _

Merci pour votre aide.

Bonjour,

Comme ceci peut-être

MsgBox "Attention, la valeur '" & Cel.Value & "' est en doublon" _
                       & " veuillez vérifier la colonne C' - " & Cel.Offset(0, -1).Value _
                       & "' avant de pouvoir valider !"

Bonjour M12 toujours là pour aider !!! Merci ça fonctionne !