Supprimer retour chariot

Bonjour

j'ai récupéré du contenu excel mais pleins de retour chariot avec q sont là et apparaisse donc dans la listbox de présentation dans mon userform

j'ai tenté de remplacer avec alt 010 et autres méthodes puis vba

Sub test()
With Sheets("PI_Table")
Dim CL As Range
For Each CL In Range("B2:I70")
  CL = Replace(CL, Chr(10), " ")
Next

End With

End Sub

je n'arrive cependant à rien  
comment procéder svp?

merci par avance

merci à @BrunoM45 qui m'aura encore une fois dépatouillé de mon soucis

le problème venait de la mise en tableau..

Salut DarkAngel,

Par rapport à la dernière discussion ICI

Il faut remplacer le code de la boucle K par celui-ci

    For Each k In ColVisu
      C = C + 1: Tbl(C, N) = Replace(TblBd(i, k), Chr(10), "")
    Next k

Apparemment c'est lors de la création du 2ème tableau que cela se produit

Peut-être qu'un maitre du Tableau qui passerai par ici nous dira pourquoi

@+