Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'selection de cellule par double click
If Intersect(Target, Range("c2:c200")) Is Nothing Then: Exit Sub
Dim Adressecellule As String
Adressecellule = ActiveCell.Value 'memorisation de la cellule active
Appelbibliothèque.Load 'Chargement de l'UserForm
Appelbibliothèque.ComboBox_selection_biblio.Value = Adressecellule 'Reprendre le contenu de la cellule active pour l'insérer dans le combobox
Appelbibliothèque.show ' affichage
End Sub