Sub tata()
Dim i&, j&, l&, c&, a$, r, v(), w()
With Sheets("Feuil1").Range("B3:F3") 'Plage de titre
With .Parent.Range(.Cells, .Parent.Cells(.Parent.Rows.Count, .Column).End(xlUp))
a = .Address
v = .Value
End With
.Parent.Copy After:=.Parent
End With
l = UBound(v)
c = UBound(v, 2) + 1
With Range(a).Resize(, c)
With Columns(.Column).Offset(, 4)
.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
.NumberFormat = "General"
End With
w = .Value
w(1, 5) = "Mvt"
For i = 2 To l
If IsEmpty(w(i, 3)) Then
w(i, 5) = Empty
ElseIf w(i, 3) = "001" Then
w(i, 5) = 1
ElseIf w(i, 3) Like "00[0,2-3]" Then
w(i, 5) = 2
End If
If v(i, 3) = "001" Or v(i, 3) = "002" Then
r = v(i, 4)
For j = 1 To l
If r = v(j, 2) Then Exit For
Next
If j <= l Then w(i, 6) = w(j, 6)
End If
Next
.Resize(, c).Value = w
End With
End Sub