Salut à tous
Essaye ça
Private Sub ListBox1_Click() ' <<<<LE PREMIER CLICK
NomLBindex = ListBox1.ListIndex + 2
TextBox1 = Sheets("feuil1").Range("A" & NomLBindex)
TextBox2 = Format(Sheets("feuil1").Range("B" & NomLBindex), "###0.00" & " €")
TextBox3 = Format(Sheets("feuil1").Range("C" & NomLBindex), "###0.00" & " €")
End Sub
A+
JPM