Xpress Blog'

'on coupe la cellule ou le string mot par mot, séparés par une virgule
      
        Arr = Split(CellB, ",")
        output = ""


 'Puis pour chaque élément du tableau 
        For b = 0 To UBound(Arr)
        
            If IsEmpty(Arr(b)) = False Then
            String = Arr(b)

ensuite on en fait ce qu'on veux, on l'affiche, on le garde, on le parse ou on les écrit dans un fichier
            msgbox(String)
            StringFormate = ("[[" &  String & "]]")
            file.Write StringFormate & vbCrLf
            file.Close
 
    Next b