Bonjour,
Ce n'est pas très explicite ta demande. Une tentative de réponse dans le code suivant proposé. Code à copier dans la module de la feuille correspondante (J'ai plutôt opté pour la solution de la saisie du caractère "X" ou "x" ou rien dans la cellule A1).
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target = "X" Or Target = "x" Then
Range("A2").NumberFormat = "#0.00 ""Kg"""
Else
Range("A2").NumberFormat = "#0.00 ""Gr"""
End If
Range("A3").NumberFormat = "#0.00 ""€"""
End If
End Sub
Teste et reviens si ça ne te va pas comme solution.