Separer 2 polices de caracteres

Bonjour les pros,

Le problème du jour est le suivant: Est-il possible, sans passer pour un doux rêveur aimant compter les étoiles paires la nuit entouré de ses brebis, de séparer 2 polices de caractère d'une même cellule séparé par un espace, dans 2 cellules distinctes, et d'isoler subséquemment des auteurs séparés eux , par un « / » ? Il va sans dire celui qui trouvera la solution aura ma bénédiction urbi et orbi jusqu' à la fin du mois d'aout.

Je joins pour plus de clarté un fichier.

Merci!

doz

Bonjour ,

Une solution possible

Sub Sépare()
Dim Chaine As String
Dim Caractere  As Characters

 For t = 2 To 5
  Chaine = Range("A" & t).Characters.Text

   For tourne = 1 To Len(Chaine)
     u = Range("A" & t).Characters(tourne, 1).Font.Name
     If u = "Garamond" Then
       partie1 = Left(Chaine, tourne - 1)
       partie2 = Mid(Chaine, tourne)
       Exit For
     End If
   Next

  Range("B" & t & ":D" & t) = Split(partie1 & "/", "/")
  Range("E" & t) = partie2
 Next

End Sub

Combien d'années d'apprentissage pour ça?

Magique! Quel gain de temps grâce a ton aide !

Merci encore.

doz