Bonjour,
Voici une solution :
Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Value) > 1 Then Target.Value = ""
If Target.Column = 35 Then Cells(Target.Row + 2, 1).Select
End Sub
Si la cellule contient plus d'un caractère, le contenu de la cellule est effacé.