Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next 'sécurité
[F8] = "" 'RAZ
[F8] = "\" & Split([F6], "\", 6)(5) 'critère modifiable
Application.EnableEvents = True
End Sub
[F8] = Split([F6], "Machin", 2)(1)
[F8] = "\" & Split(Split([F6], "Documents\", 2)(1), "\", 2)(1)