Etoiles automatique en validant une saisie

Bonjour à tous,

Je suis nouveau sur ce forum et j'ai un petit souci.

J'aimerai faire en sorte que quand on saisie quelque chose dans une cellule et qu'on valide cette saisie (par entrée ou en cliquant sur une autre cellule), une * apparaisse avant ET après ma saisie. Exemple :

Je sais dans une cellule : 130226

Je valide

La cellule devient automatiquement : *130226*

Est ce possible ?

Merci beaucoup

Bonjour et bienvenue sur le forum

Code à mettre dans l'espace code de "ThisWorkbook" :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Value <> "" And Left(Target.Value, 1) <> "*" Then
            Target.Value = "*" & Target.Value & "*"
    End If
    Application.EnableEvents = True
End Sub

Bye !

J'aurais dû préciser que cela ne concerne que certaines cellules :-\