EXCEL VBA - J'ai perdu un string !!

Bonjour,

voilà j'ai un petit soucis de programmation sous EXCEL 2003. En effet, je cherche à faire une liste de choix dans un cellule, proposant les choix trouvé dans un autre fichier.
Je cherche donc ma liste de valeurs à proposer, et je me retrouve avec une string 288 char. Que je mets dans ma validation.
Le probleme est que la cellule n'affiche pas tous les choix. On dirait qu'il en manque une cinquantaine. Comme s'il ne pouvait afficher que 250 char ??
Je me suis que ca venait de ma variable intermediaire (list_of_value), et je l'ai donc cassée en 2 (list_of_value2), là j'ai tout, donc les infos sont bien là. Mais quand je copie tout ca dans la formule de validation (.Formula1), et bien ca ne me m'affiche pas toute la variable. Seulement (a peu pres) 250 char...

voici mon code
With Workbooks(DB_File_Name).Sheets(Sheet_text_calibration).Range("A:A")
Set objCell = .find(What:=MyArg.CPC_INTER, LookIn:=xlValues, MatchCase:=True)
If Not objCell Is Nothing Then
PremAdresse = objCell.Address
Do
If Find_in_DB Is Nothing Then Set Find_in_DB = objCell
'on lit les differentes valeurs et on les avale
If Len(list_of_values) > 200 Then
list_of_values2 = list_of_values
list_of_values = ""
End If
list_of_values = Workbooks(DB_File_Name).Sheets(Sheet_text_calibration).Cells(objCell.Row, 2).Value & "," & list_of_values
Set objCell = .FindNext(objCell)
Loop While Not objCell Is Nothing And objCell.Address <> PremAdresse
End If
End With
'on vire la derniere virgule
list_of_values = Mid(list_of_values, 1, Len(list_of_values) - 1)

With ActiveSheet.Cells(LignePlus1, 6).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, OPERATOR:= _
xlBetween, Formula1:=list_of_values2 & list_of_values
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choose TC"
.ErrorTitle = "Warning ; I detect an error"
.InputMessage = ""
.ErrorMessage = "This TC is unknown ; are you dislexic ?"
.ShowInput = True
.ShowError = False
End With

Merci à tous pour m'avoir lue !
bisous