Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _ Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown, TextBox4.KeyDown '<- toutes les zones de texte sur l'évènement de la première zone If e.KeyCode = Keys.Enter Then '<- touche entrée Select Case DirectCast(sender, TextBox).Name '<- switch sur le nom du control Case "TextBox1" : TextBox2.Focus() Case "TextBox2" : TextBox3.Focus() Case "TextBox3" : TextBox4.Focus() Case "TextBox4" : TextBox1.Focus() End Select e.SuppressKeyPress = True '<- annule la pression pour eviter le bip End If End Sub