Sub InsertLien()
Dim PlageRef, PlageDeComp, X, Y As Variant
Dim DerLigne1, DerLigne2 As Long
DerLigne1 = Workbooks("MODELE").Worksheets("Synthèse").Range("E" & Rows.Count).End(xlUp).Row
DerLigne2 = Workbooks("MODELE").Worksheets("BdD").Range("D" & Rows.Count).End(xlUp).Row
Set PlageRef = Workbooks("MODELE").Worksheets("Synthèse").Range("E5:E" & DerLigne1)
Set PlageDeComp = Workbooks("MODELE").Worksheets("BdD").Range("D2:D" & DerLigne2)
For Each X In PlageRef
For Each Y In PlageDeComp
If X = Y Then
Y.Offset(0, 1).Copy
X.Offset(0, -1).PasteSpecial Paste:=xlPasteAllExceptBorders, operation:=xlNone, skipblanks:=False, Transpose:=False
With ActiveCell
.Interior.ColorIndex = xlColorIndexNone
.Font.Size = 10
.Font.Name = "Calibri"
.Font.Color = RGB(161, 6, 132)
.Font.Bold = True
End With
Exit For
End If
Next Y
Next X
End Sub