'La fonction Public Function NewItem(List As ListBox) Dim R As String R = InputBox("Saisissez la nouvelle valeur :", "Nouvelle valeur") List.List(List.ListIndex) = R End Function Private Sub List1_DblClick() 'Comment l'utiliser: 'Ne surtout pas mettre de parentheses sinon ça marche pas NewItem List1 End Sub