Private Function Niveau(ByVal Plg As Range, ByVal Num As Long) As String
Dim T, TReport(), i&, J&
If Plg.Count > 1 Or Num < 1 Or InStr(Plg.Value, "\") = 0 Then Exit Function
T = Split(Plg.Value, "\")
If Num > UBound(T) - 1 Then Exit Function
ReDim TReport(Num - 1)
J = UBound(TReport)
For i = UBound(T) To (UBound(T) - (Num - 1)) Step -1
TReport(J) = T(i)
J = J - 1
Next i
Niveau = Join(TReport, "\")
End Function