Sub Recherche()
Set ws_Ext = Sheets("Ext. Ordo.")
Set ws_Res = Sheets("Rés MRP")
ws_Ext.Activate
NbLigne = Application.WorksheetFunction.CountA(Columns(1))
ws_Res.Activate
For i = 293 To 308
For j = NbLigne To 2 Step -1
If (ws_Ext.Cells(j, "C") = ws_Res.Cells(i, "A")) Then
ws_Res.Cells(i, "T") = ws_Ext.Cells(j, "F")
ws_Res.Cells(i, "V") = ws_Ext.Cells(j, "G")
ws_Res.Cells(i, "X") = ws_Ext.Cells(j, "H")
ws_Res.Cells(i, "AA") = ws_Ext.Cells(j, "I")
Exit For
End If
Next
Next
End Sub