macro double click avec texte

bonjour

je cherche a modifier une macro que j'ai trouver sur le forum.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$10" Then Exit Sub
Application.EditDirectlyInCell = False
Select Case Target.Interior.ColorIndex
Case Is = xlNone 'rien
Target.Interior.ColorIndex = 4 ' vert
Case Is = 4 'vert
Target.Interior.ColorIndex = 3 'rouge
Case Is = 3 'rouge
Target.Interior.ColorIndex = xlNone
End Select
End Sub

a la place des couleur je souhaiterai mettre du texte.
de B7 à AL 7 : "J" ; "N" ; SN ; DJ ; DN ; F ;
de B9 à AL9 : " A1 ; A2 ;
de B10 à AL 10 : G ;Gj ; Gn ; F ;

si cela est possible je vous remercie de votre aide