Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Select Case Target.Value
Case "j": Target.Value = 13
Case "f": Target.Value = 17
Case "h": Target.Value = 22
End Select
Application.EnableEvents = True
End If
End Sub
merci pour ton retour ! pour passer le sujet en résolu, il suffit de cliquer sur le bouton près de (regarde dans le coin haut droit du post) ; ça permet aussi de clôturer le fil de la discussion ; tu sauras que tu as réussi quand tu verras un petit rond vert avec une coche, comme ceci :
(toi seul peut le faire, car c'est toi qui a créé ce sujet)