Bonjour,
Bonjour Frangy,
Un autre proposition à étudier(Ctrl + w pour lancer la procédure).
Cdlt
Option Explicit
Public Sub test()
Dim Ws As Worksheet
Dim Dl As Long, i As Long
Application.ScreenUpdating = False
Set Ws = Worksheets("Feuil1")
With Ws
Dl = Range("A" & Rows.Count).End(xlUp).Row
.Cells(2, 3).FormulaR1C1 = "=TRIM(MID(RC[-2],1,FIND(""REF"",RC[-2])-1))"
.Cells(2, 4).FormulaR1C1 = _
"=MID(RC[-3],FIND(""REF"",RC[-3])+3,LEN(RC[-3])-FIND(""Lot"",RC[-3]))*1"
.Cells(2, 5).FormulaR1C1 = "=RIGHT(RC[-4],FIND("" "",RC[-4]))*1"
.Range(.Cells(2, 3), .Cells(Dl, 5)).FillDown
.Range(.Cells(2, 3), .Cells(Dl, 5)) = .Range(.Cells(2, 3), .Cells(Dl, 5)).Value
End With
Set Ws = Nothing
End Sub