Bonjour ,
je souhaite séparer une chaine de caractere delimiter par de '\' . Aprés recherche sur le forum j'ai trouvé ce code
Sub test()
deb = 1
cellule = 2
Range("A1") = Range("A1") & "\"
For n = 1 To Len(Range("A1"))
If Mid(Range("A1"), n, 1) = "\" Then
Cells(1, cellule) =...