J'ai eu tort de faire une impasse et mettre un seul avant et un seul apres
Le principe du saucissonnage est le suivant
ma_tranche = (Split(Split(.responsetext,[avant1])(1), [apres1])(0)
si cette tranChe est trop large, on redécoupe pour mieux cibler
ma_tranche = (Split(Split(ma_tranche,[avant2])(1), [apres2])(0)
Je pense que si tu en as plusieurs, je te conseille d'utiliser une fonction
Function mydata(texte As String, debut1 As String, fin1 As String, debut2 As String, fin2 As String)
mydata= Split(Split(texte, debut1)(1), fin1)(0)
mydata= Split(Split(mydata, debut2)(1), fin2)(0)
End Function
et ensuite de faire appel à elle sans donner de noms comme j'ai fait aux cellules, mais en donnant l'adresse d'une feuille paramètre
exemple
Cells(i,"E")=mydata(.responsetext, Sheets("param").Cells(1, "E"), Sheets("param").Cells(2, "E"), Sheets("param").Cells(3, "E"), Sheets("param").Cells(4, "E"))
Cells(i,"F")=mydata(.responsetext, Sheets("param").Cells(1, "F"), Sheets("param").Cells(2, "F"), Sheets("param").Cells(3, "F"), Sheets("param").Cells(4, "F"))
Cells(i,"G")=mydata(.responsetext, Sheets("param").Cells(1, "G"), Sheets("param").Cells(2, "G"), Sheets("param").Cells(3, "G"), Sheets("param").Cells(4, "G"))
en mettant dans la feuille paramètre, colonne E (puis F et G etc.) sur 4 lignes les valeurs de "découpe". Elle seront indépendantes les unes des autres sans communalité comme je l'avais fait à tort.
Ce sera mieux structuré avec un parallèle entre la feuille principale et la feuille paramètre.
Je ne sais pas si e suis assez clair !