Sub MisAJour()
Dim DerLig1 As Long, DerLig2 As Long, i As Long, j As Long, TabIni, TabRef
DerLig1 = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
DerLig2 = Worksheets("Feuil2").Range("B" & Rows.Count).End(xlUp).Row
TabIni = Worksheets("Feuil1").Range("A2:N" & DerLig1)
TabRef = Worksheets("Feuil2").Range("B4:D" & DerLig2)
For i = LBound(TabRef) To UBound(TabRef)
For j = LBound(TabIni) To UBound(TabIni)
If TabRef(i, 1) = TabIni(j, 11) Then
TabIni(j, 13) = TabRef(i, 2)
TabIni(j, 14) = TabRef(i, 3)
Exit For
End If
Next
Next
Worksheets("Feuil1").Range("A2").Resize(UBound(TabIni, 1), UBound(TabIni, 2)) = TabIni
End Sub