Salut"Nicolas 65"
Bonjour le "FORUM"
cette procèdure(ci dessous) placée dans le module de ta feuil1 te fait l'opération il ne reste plus qu'a convertir l'adresse en lien Hypertext avant transfert je n'ai pas essayé
Sub supprDoublon()
Dim cel As Range
Dim lgn As Integer
Dim derlgn As Integer
Application.ScreenUpdating = False
With Worksheets("Feuil1")
derlgn = .Range("B5000").End(xlUp).Row'détermine la derniere ligne de la colonne B
For Each cel In .Range("B2:B" & derlgn)'Plage de la recherche
lgn = cel.Row
If .Cells(lgn, 2) = .Cells(lgn + 1, 2) And .Cells(lgn, 3) = .Cells(lgn + 1, 3) Then
'compare les cellules des colonnes B et C
.Cells(lgn + 1, 16) = .Cells(lgn, 16) 'transfert l'adresse
.Cells(lgn, 1).EntireRow.Delete 'efface la ligne
lgn = lgn + 1'passe à la ligne suivante
End If
Next
End With
Application.ScreenUpdating = True
End Sub
donc tiens nous au courant
A+++
Jean Marie