Bonjour Kopain, bonjour le forum,
Essaie avec ce code à placer dans le composant de l'onglet où tu veux que ça agisse (Feuil1(Feuil1) par exemple) :
Private Sub Worksheet_Change(ByVal Target As Range)
If UCase(Target.Value) = "K" And Len(Target.Value) = 1 Then Target.Value = "Kopain"
End Sub