Bonjour Fabien, le forum
Ben c'est normal, puisque, justement, dans le code tu lui dis de mettre la valeur de "F8" dans la cellule active "ActiveCell.FormulaR1C1 = Range("F8").Value"
Maintenant, pour le faire sur les différentes cellules, et comme les s'incrémentent de 6 à chaque fois, il y a la solution de faire une boucle avec une pas de 6 :
For L=8 to 44 step 6
Mot= Range("F" & L)
....
With ActiveCell.Characters(Start:=I - 3, Length:=3).Font
.Superscript = True
End With
Next L
Je n'ai pas testé, mais à la louche, ça devrait le faire.
Si la solution de la boucle ne convient pas, il faudra travailler sur une sélection :
Range("F8,F14,F20,F26,F32,F38,F44").Select
For each c in selection
Mot = c.Value
....
With ActiveCell.Characters(Start:=I - 3, Length:=3).Font
.Superscript = True
End With
Next c
En espérant que cela te dépanne.
Abel