J'ai 1000 nombres de 2 chiffres à entrer dans une colonne. Comment les taper au kilomètre sans avoir à appuyer sur la touche enter ?

Une façon de faire est de créer une boîte de dialogue (UserForm1) avec une zone de texte (TextBox1) à laquelle sont attachées une première fonction détectant la présence d'un deuxième caractère dans la zone de texte qui déclenche alors l'exécution de la fonction de rangement... comme par exemple les fonctions suivantes:

Private sub TextBox1_Change()
 If TextBox1.TextLength = 2 Then
 Ranger
 TextBox1.Value = ""
 Else
 End If
 end sub

sub Ranger()
 MsgBox (UserForm1.TextBox1.Value)
 ActiveCell.FormulaR1C1 =UserForm1.TextBox1.Value
 Activecell.offset(1,0).select
 end sub