Détecteur de doublon et fusion de donnée

Bonjour,

une petite question car après avoir rechercher sur le forum je n'ai point trouvé ma réponse.

je cherche à faire un détecteur de doublons avec fusion des données et suppression d'une des deux lignes.

la verification du doublon dois se faire par deux variables le nom et le numero de telephone les deux doivent être identique pour que ce soit un doublon.

merci de votre aide par avance.

Bonsoir

A vérifier

Bonsoir

Hello Banzai !

Autre code

Sub Remonte()
Dim Lig As Long, i As Long, j As Long, k As Byte, n As Integer, X As Byte

Application.ScreenUpdating = False
Lig = Range("A65536").End(xlUp).Row

For i = 2 To Lig
For n = 2 To Lig

   If Cells(n, 4) = Cells(i, 4) And Cells(n, 18) = Cells(i, 18) Then
   X = X + 1
   End If
   Next n

If X > 1 Then

   For j = i + 1 To Lig
      If Cells(j, 4) = Cells(i, 4) And Cells(j, 18) = Cells(i, 18) Then

         For k = 34 To 49
         If Cells(j, k) <> "" Then
         Cells(i, k) = Cells(j, k)
         Range(Cells(j + 1, 1), Cells(Lig + 1, 49)).Copy Cells(j, 1)
         End If
         Next k
      End If
   Next j
End If
X = 0
Next i
End Sub

Amicalement

Nad

encore merci banzai

Bonsoir

J'apprécie tes remerciements

Nad

Désole Nad merci de ton travail et tu temps pris pour ma demande même si j'ai utilisé le code de banzai