Impression d´etiquette contenant un code barre 128

Bonjour a tous,

Je souhaite imprimer des etiquettes avec un code barre 128, j´ai bien évidement utilisé le code VBA du Grand grandzebu pour la convertion de ma chaine en code 128; tout fonctionne bien jusqu´au moment je concatene mon code barre a une variable; l erreur affiché est : "ByRef ne coincide pas"

Le code me permet d´imprimer autant détiquette qu il y a de "bulto", je lance l'impression de mes etiquettes depuis un userform, et je passe mes données sur une autre feuille pour simplifier (pour moi) mon impression.

Je nái aucune idée de ce que signiife type ByRef ne coincide pas et c' est la premiere fois que je suis confronté a ce type d´erreur.

Je suis comme d´habitude ouvert a tout type de sugestion, et merci d´avance

Codigobarra = UserEtiqueta.TxtCodigoBarra.Value

Dim j as variant

 For j = 1 To BultoT Step 1

With Sheets("Impression etiqueta").PageSetup
      .Zoom = 95
End With
   
    Sheets("Impression etiqueta").Range("d13").Value = j

'****************************************
'c'est a ce moment que cela bug
'*****************************************
 Sheets("Impression etiqueta").Range("b14").Value = Codigobarra  &  Code128$(j)
'*******************************************
'msg  il me surligne le j en me disant que le type ByRef ne coincide pas
'**********************************************
   
 Range("A1:F17").Select
 Selection.PrintOut Copies:=1, Collate:=True
 
 Next j

'pour la comprehension de mon code la ligne suivante se trouve ailleurs ds le code
' a l initialisation d' une combobox
  Me.TxtCodigoBarra = Code128$(Me.CbNAnalisis.Value & Mid(f.Cells(c.Row, 2), 4, 5))