Retour chariot Excel

Réponse acceptée !
KC62, pour ton info VbCrLf
Cr pour Carriage return (retour de chariot)
Lf pour Line Feed (Saut de ligne)

Je n'ai pas la solution, mais j'ai remarqué qu'en Excel si tu mets
Range("A1") = "Je saute" & vbcrlf & "une ligne"
ça met un petit carreau blanc en guise de caractère "illisible" ou "inaffichable"
Avec Range("A1") = "Je saute" & vbcrlf & "une ligne"
ça ne met pas de signe

vbLf est l'équivalent de chr(10)
vbCrl est l'équivalent de chr(13)
Il faudrait probablement que tu t'amuses avec ces deux caractères

Un peu comme dit MichelXLD, tu peux utiliser cette fonction d'Excel ou celle de VB
Entete = Replace(Entete, vbCrLf, vbLf)
ou
Entete = Replace(Entete, vbCrLf, chr(32))  ' chr(32) = espace

Et comme dit KC62, tu peux vérifier chaque caractère de ton entête en créant une petite fonction du genre
Sub Y()
    Dim strTemp As String, I As Integer
   
    For I = 1 To Len(Range("A1"))   '  Range("A1") contient l'entête en question
        strTemp = strTemp & Asc(Mid(Range("A1"), I, 1)) & vbTab & _
                    Mid(Range("A1"), I, 1) & vbCrLf
    Next
   
    MsgBox strTemp
End Sub


MPi

Réponse acceptée !

Merci pour toutes vos réponses, elles m'ont beaucoup aidées !
Au final j'ai remplacé comme ceci :

cellule = Replace(LCase(Cells(9, i)), vbLf, "§")
crit3.AddItem (cellule)

Et lorsque je cherche sur cette valeur, je fais

leCritere3 = Replace(crit3.Text, "§", vbLf)
While LCase(Cells(9, i)) <> leCritere3
        i = i + 1
Wend

Merci encore et à bientôt