Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
' ici j'aimerai faire en sorte que le double click rapatrie la valeur du barème dans une cellule du fichier
Sheets("Feuil1").Range("H5") = ListBox1.List(ListBox1.ListIndex, 1)
End Sub