Tu peux tester cette macro, spécifique à ton besoin. Vois si elle colle bien à ce que tu veux.
VB:
Sub déconcaténons()
Dim c As Range
Set c = [A2]
Do While c <> ""
If UBound(Split(c)) = 4 Then c.Characters(InStr(c, " "), 1).Caption = "|"
c.Offset(0, 1).Resize(, 4) = Split(c)
c(1, 2) = Replace(c(1, 2), "|", " ")
Set c = c(2, 1)
Loop
End Sub
malheureusement je crains qu'en effet, ayant une source d'informations de format assez diverses en format et informations, on est dans l'obligation de procéder manuellement.
Les solutions proposées m'aidant dans un premier temps à séparer les informations mais qu'il va falloir remettre en bon ordre manuellement par la suite... le tout est d'arriver à constituer une BD propre pour les générations à venir...;-)
En même temps, si tu trouves une certaine logique à l'organisation des données, même si elles paraissent assez disparates, on devrait pouvoir en faire une macro viable...
Les formules ont été laissées "décomposées", pour en faciliter la compréhension.
Si elles répondent à tous les cas de figure de la déconcaténation, il ne sera pas fort difficile de les rassembler pour les rendre uniques.