re
ci joint une fonction qui permet d'isoler les informations desirées (a priori)
reste a savoir ce que tu veux en faire ensuite tu as un tableau de sortie tb_result qui contient 12 chaines de caracteres qui sont les 12 extractions demandées
Sub extract()
Dim tb() As String
Dim tb_result(1 To 12)
Dim i As Byte
chaine = Sheets(1).[H2]
chaine = Replace(chaine, Chr(10), " ")
tb = Split(chaine, " : ")
tb_result(1) = Trim(Replace(tb(1), "Commentaire PEL", ""))
tb_result(2) = Split(tb(4), " ")(0)
tb_result(3) = Split(tb(5), " ")(0)
tb_result(4) = Split(tb(7), " ")(0)
tb_result(5) = Split(tb(8), " ")(0)
tb_result(6) = Split(tb(11), " ")(0)
tb_result(7) = Split(tb(12), " ")(0)
tb_result(8) = Split(tb(14), " ")(0)
tb_result(9) = Split(tb(15), " ")(0)
tb_result(10) = Split(tb(18), " ")(0)
tb_result(11) = Split(tb(19), " ")(0)
tb_result(12) = Split(tb(20), " ")(0)
chaine = ""
For i = 1 To 12
chaine = chaine & tb_result(i) & vbCr
Next
MsgBox chaine
End Sub