Bonjour,
une solution possible, mais il faut appuyer sur entrée après avoir introduit un espace
à mettre dans le code de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target = " " Then
Application.EnableEvents = False
Target = "défaut"
Application.EnableEvents = True
End If
Target.Offset(, 1).Select
End Sub