Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Or Target(1) = "" Then Exit Sub
Cancel = True
Target(1, 0) = 1
Target(1, 0).Resize([J3]).DataSeries
Target.Resize([J3]) = Target
Columns(1).AutoFit
'---résultats en colonne D---
Target(1, 0).Resize([J3]).Name = "a": Target.Resize([J3]).Name = "b" 'plages nommées
Target(1, 3).Resize([J3]).FormulaArray = "=IF(ISBLANK(a),"" "",""><tspan x=""""0"""" y=""""0"""" class=""""texte"""">""&a&""</tspan><tspan x=""""0"""" y=""""0"""" class=""""texte"""" baseline-shift=""""super"""">ème</tspan><tspan x=""""0"""" y=""""0"""" class=""""texte"""">""&b&""</tspan></text>"")"
Target(1, 3).Resize([J3]) = Target(1, 3).Resize([J3]).Value 'supprime la formule
Target(1, 3).Replace "ème", "ère", xlPart
End Sub