Liste à choix multiple

Bonjour,

Je viens vous soumettre un problème que j'ai dans un long tableau avec ma colonne à "liste à choix multiple". Voilà :
Dans un fichier excel 2007, où j'ai déjà beaucoup de lignes (3044) et qui va être ré-alimenté régulièrement (4 ou 5 fois par mois), j'ai une colonne dans laquelle je dois avoir le choix de sélectionner plusieurs options dans une liste déroulante à choix multiple. J'ai suivi les instructions données par pijaku sur un autre post (ici = https://forums.commentcamarche.net/forum/affich-19616792-liste-deroulante-a-choix-multiple-excel-2007 mais ça ne fonctionne pas correctement : quand je double-clique sur une cellule de la colonne en question, ça m'ouvre bien ma liste à choix multiple sur laquelle je peux sélectionner mes différents choix, mais quand je clique sur valider, au lieu de mettre mes choix sélectionnés dans la cellule où j'ai double-cliqué, ça me ramène à la dernière cellule que j'ai indiqué dans mes codes VBA, à savoir O10000 (lettre O suivi de 10000) sans rajouter mes choix sélectionnés dans aucune des 2 cellules (ni dans celle où j'ai double-cliqué, ni dans la O10000).
(J'ai limité à 10000, mais en réalité, je veux pouvoir avoir la liste de choix utilisable dans chaque cellule de la colonne O (à part la 1° qui correspond au titre de ma colonne. Je ne connais pas vraiment le langage VBA, j'ai juste utilisé les infos du post indiqué ci-dessus)

Voici ce que j'ai mis :

Dans « userForm1 » =
-------------------------------------------------------------------------
Option Explicit

Private Sub CommandButton1_Click()
Dim i As Byte
Dim ValeurARetourner As String

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ValeurARetourner = ValeurARetourner & ListBox1.List(i) & " & "
End If
Next i
With Sheets("Listing affaires")
.Range("O2") = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
.Range("O10000").Activate
End With
UserForm1.Hide
Unload UserForm1
End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Initialize()
Dim i As Integer, Derlig As Integer
ListBox1.Clear

Derlig = Sheets("Listing affaires").Cells(65536, 27).End(xlUp).Row
For i = 1 To Derlig
ListBox1.AddItem Cells(i, 27).Value
Next i
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox1.Selected(i) = False
End If
Next i
End Sub

-------------------------------------------------------------------------


Et dans worksheet
-------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("O2:O10000")) Is Nothing Then
Exit Sub
Else: Target.Value = ""
Load UserForm1
UserForm1.Show
End If
End Sub
-------------------------------------------------------------------------

Je ne sais pas si je suis très claire, aussi, n'hésitez pas à me poser des questions.

1/ Est-ce que je me trompe en pensant que mes infos range ne sont pas correctes ?
2/ j'ai l'impression qu'il me manque des codes dans le worksheet au niveau du « End If » (avant ou après) ??

Précision = j'ai créé ma liste de choix dans une colonne (AA) éloignée des autres, mais sur la même feuille que là où doivent s'afficher mes choix (colonne O)
==> ce qui me fait penser que c'est peut-être pas une bonne idée si un jour on supprime ou rajoute une colonne dans le tableau


PS : Chez moi, j'ai excel 2013 mais au bureau, c'est excel 2007. Je sais que normalement, ça ne devrait pas être un souci (du moins j'espère) mais je préfère le préciser !!


Désolée d'être aussi longue, mais je suppose que c'est nécessaire pour que vous ayez le max d'info.
Et un grand merci d'avance pour votre aide ! ;-D