J'ai vu mais je n'arrive pas à le faire marcher :
Private Sub ListBox1_Click()
If ListBox1 = 'Contrat de capitalisation N°1' Then
TextBox1.Value = Range('Alloc!AK6').Value
TextBox1.Value = Format(TextBox1.Value, '#,##0.00 €')
TextBox2.Value = Range('Alloc!AK12').Value
TextBox2.Value = Format(TextBox2.Value, '#,##0.00 €')
If Range('Alloc!AT35') = 'OUI' Then
ListBox30.RowSource = 'Feuilleperf!G136:G137'
ListBox30.ListIndex = 0
Else
ListBox30.RowSource = 'Feuilleperf!G136:G137'
ListBox30.ListIndex = 1
End If
Dim L As Integer
Dim Mot As String
With ListBox2
For L = 0 To .ListCount - 1
If .List(L) = Sheets('Alloc').Range('H7').Value Then
.Selected(L) = True
Mot = .List(L)
End If
Next L
End With
End If
On peut me dire ce ki ne va pas svp ?