Bonjour
En attendant ta réponse, j'avais envisagé de mettre le libellé du compte dans le commentaire de la cellule contenant la liste déroulante.
Un test dans J3:J11 de la feuille "Plan comptable"
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("J3:J11")) Is Nothing Then
Dim i, Val As Variant
i = Application.WorksheetFunction.Match(Target, Sheets("Plan comptable").Range("B2:B165"), 0)
[Target].ClearComments
[Target].AddComment.Text Text:=Sheets("Plan comptable").Range("A" & i + 1).Value
End If
Application.CutCopyMode = False
End Sub
Cordialement