bonjour Nrev74,
non, ce n'est pas possible, c'est un des 2, oubien la formule oubien VBA.
Oubien la formule fait son boulot et puis VBA la met en texte + l'adapte, mais alors la formule est disparue.
Sub Synth()
Dim I%, fin As Integer
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("D6:D13").Cells
If c.Row = 12 Then
c.FormulaR1C1 = "=R6C & "" "" & R7C" 'créer la formule
c.Value = c.Value 'remplacer par le contenu
End If
If Not IsNumeric(c.Value) Then
fin = Len(c.Value)
For I = Len(CStr(Val(c.Value))) + 1 To fin
If IsNumeric(Mid(c.Value, I, 1)) = True Then
c.Characters(I, 1).Font.Subscript = True
ElseIf Mid(c.Value, I, 1) = "a" Or Mid(c.Value, I, 1) = "b" Then
c.Characters(I, 1).Font.Superscript = True
End If
Next
End If
Next c
Application.ScreenUpdating = True
End Sub