Sub hierarchie()
I = 2
X = 2
Test = True
While Test
' Identifier si Hiérarchie 0, 1, 3 ou 4
VHIE1 = Len(Range("B" & I).Value) - Len(Trim((Range("B" & I).Value)))
' Garder le texte de hiérarchie 0
TEXTE1 = Range("B" & I).Value
I = I + 1
VHIE1 = Len(Range("B" & I).Value) - Len(Trim((Range("B" & I).Value)))
While VHIE1 <> 0
VHIE1 = Len(Range("B" & I).Value) - Len(Trim((Range("B" & I).Value)))
VHIE2 = Len(Range("B" & I).Value) - Len(Trim((Range("B" & I).Value)))
TEXTE2 = Range("B" & I).Value
I = I + 1
VHIE2 = Len(Range("B" & I).Value) - Len(Trim((Range("B" & I).Value)))
While VHIE2 <> 1 And VHIE1 <> 0
Range("F" & X).Value = Trim(TEXTE1)
Range("G" & X).Value = Trim(TEXTE2)
Range("H" & X).Value = Trim(Range("B" & I).Value)
Range("I" & X).Value = Trim(Range("C" & I).Value)
I = I + 1
X = X + 1
VHIE2 = Len(Range("B" & I).Value) - Len(Trim((Range("B" & I).Value)))
VHIE1 = Len(Range("B" & I).Value) - Len(Trim((Range("B" & I).Value)))
Wend
Wend
If Range("B" & I).Value = vide Then
Test = False
End If
Wend
End Sub