Quand je veux l'incorporer dans mon fichier final, ça me met ça :
Private Sub ListBox1_Click()
ActiveCell = Me.
ListBox1.Value
ActiveCell.Font.Bold = True
ActiveCell.Font.Italic = True
End Sub
et ça :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next
UserForm1.
ListBox1.ListIndex = Target.Row - 2
On Error GoTo 0
End Sub