Salut Charles !
Il y a un moyen simple, quand tu veux écrire un code que tu ne connais pas.
C'est de lancer l'enregistreur de macro et soit de faire ta manip ou d'écrire ta formule.
Et tu as déjà une partie de ta réponse.
Dans ton cas, j'ai fait de cette façon et voilà ce que ça a donné :
Sub Macro1()
Range("E5").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],SEARCH(""-"",RC[-1])-1)"
Range("E6").Select
End Sub
A savoir j'avais écrit 8,4-16,8 en D5 et ai écrit la formule en E5.
A toi d'adapter !
@ +
Moa