Bonjour,
un classeur avec des données non confidentielles aurait été plus utile qu'une image ...
essayer quelque chose du genre :
Private Sub ListBox2_Click()
On Error GoTo Fin
ListBox1.Value = ListBox2.Value
Exit Sub
Fin:
MsgBox "N'existe pas en liste 1"
End Sub
A+