Sub Suivi_des_PO()
Dim i As Long, oDat()
Dim j As Variant
Dim l As Long
Dim c As Range
Dim r As Range
Dim Départ As String
Dim Départ1 As String
Dim d As Range
Dim e As Range
Dim f As Range
Dim Somme&
With Worksheets("TradeCard")
Application.ScreenUpdating = False
For l = .Range("D65536").End(xlUp).Row To 1 Step -1
If Left(.Range("D" & l), 1) <> "M" Then .Rows(l).Delete
Next l
.Columns(5).Insert
.Cells(1, 5) = "PO-LG"
Set c = .[E2]
Do While c.Offset(0, -1) <> ""
c = Split(c(1, 0), "/")(0) & "-" & Mid(.Range("G" & c.Row).Value, 4, 3)
Set c = c.Offset(1, 0)
Loop
End With