Sub macro13()
application.screenupdating=false
'on cherche la dernière ligne
Fin = Sheets("Feuil3").UsedRange.Rows.Count
For i = 4 To Fin
If Cells(i, "J") = 89 Then
Cells(i, "K").FormulaR1C1 = "=VLOOKUP(RC[4],Phases!R1C1:R100C6,3,FALSE)" 'colonne K
Cells(i, "L").FormulaR1C1 = "=VLOOKUP(RC[3],Phases!R1C1:R100C6,4,FALSE)" 'colonne L
Cells(i, "M").FormulaR1C1 = "=VLOOKUP(RC[2],Phases!R1C1:R100C6,5,FALSE)" 'colonne M
End If
Next i
application.screenupdating=true
End Sub