Dim strInput As String
Dim arrParts() As String
Dim i As Long
' Chaîne à décomposer
strInput = "Crrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrt1&&Crt2&&Crt3&&Opt1%%%Opt2%%%Opt3&&Crt5"
' Décomposer la chaîne selon le séparateur "&&"
arrParts = Split(strInput, "&&")
' Configurer le ListView pour n'avoir qu'une seule colonne
With UserForm1.ListView1
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "Sous-chaînes"
.View = lvwReport
End With
' Effacer le contenu existant du ListView
UserForm1.ListView1.ListItems.Clear
' Ajouter chaque sous-chaîne dans une nouvelle ligne du ListView
For i = 0 To UBound(arrParts)
UserForm1.ListView1.ListItems.Add , , arrParts(i)
Next i