Effectivement le code est largement plus efficace !!
qq seconde à la place de 5 bonnes minutes !
Merci beaucoup !
J'aimerais complété le code, je lui ai ajouté la couleur et les bordures mais je recois une erreur de compilation qui me dit que j'utilise un next sans For...
Sub test()
Dim ref
Application.ScreenUpdating = False
With Sheets("aircraft tree")
For i = 2 To .Range("J" & .Rows.Count).End(xlUp).Row
On Error Resume Next
ref = .Range("A2:I1202").Find(.Range("J" & i), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows).Address
If .Range("K" & i) <> "" Then
Worksheets("sheet4").Range(ref) = .Range("K" & i).Value
Cells(ref).Interior.Color = 255
Cells(ref).Borders.Weight = xlThin
Else: Worksheets("sheet4").Range(ref) = .Range("L" & i).Value
Cells(ref).Interior.Color = 255
Cells(ref).Borders.Weight = xlThin
Next
End With
End Sub
Qu'est ce que j'aurais mal fait svp ?