Sub MAJ()
Dim i As Long
Dim Trouve As Range
Dim valeur_recherchee As String
With Sheets(1)
'Suppression de ligne dans "PORTEFEUILLE LIVRABLE" si "N° CAR" n'existe pas dans "Fichier source de MAJ"
For i = .Range("N" & Rows.Count).End(xlUp).Row To 2 Step -1
If Application.CountIf(Sheets(2).Columns("L"), .Range("N" & i).Value) = 0 Then
.Range("N" & i).EntireRow.Delete
End If
Next i
End With
For i = 2 To Sheets(2).Range("L65536").End(xlUp).Row
valeur_recherchee = Sheets(2).Range("L" & i)
With Sheets(1)
Set Trouve = .Columns("N").Find(what:=valeur_recherchee, LookIn:=xlValues, lookAt:=xlWhole)
If Not Trouve Is Nothing Then
ligne = Trouve.Row
.Range("O" & ligne) = Sheets(2).Range("K" & i)
.Range("R" & ligne) = Sheets(2).Range("N" & i)
.Range("S" & ligne) = Sheets(2).Range("O" & i)
.Range("H" & ligne) = Sheets(2).Range("AK" & i)
.Range("P" & ligne) = Sheets(2).Range("AO" & i)
End If
End With
End Sub