Sub test()
Dim chemin As String, i As Long, fini As Boolean
chemin = Replace([B8], "-", "\")
While Not fini
If Dir(chemin, vbDirectory) = "" Then
i = InStrRev(chemin, "\")
If i > 1 Then chemin = Left(chemin, i - 1)
Else
fini = True
End If
Wend
If Len(chemin) = 2 Then chemin = "Aucun"
MsgBox ("Chemin existant : " & chemin)
End Sub