Salut PapyLuc51
Ou alors, l'artillerie lourde avec une petite macro
Const cel = "A1"
Const premval = "A"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range(cel)) Is Nothing Then
Target.Value = premval
End If
End Sub
Cdlmnt
Oui la liste proposée reste toujours la même, mais je suis obligé de remonter avec l'ascenseur pour sélectionner par exemple A
Avec une liste de 200 lignes, pour remonter, cela prend plus de temps ......