Salut @Bobby, Pascal, Pyrof, le fil, le forum...
Merci pour l'info du replace what:= replacement:= je ne connaissait pas cette fonction et moi et bien comme d'hab j'utilise le roulot comprésseur pour tué l'acarien...LOL :
Txt_entre=me.Text_box1
Pos_enter=instr(1,txt_entre,chr(13),vbtxtcompare)
do until pos_entre=0
txt_entre=left(txt_entre,pos_enter) & right(txt_entre,len(txt_entre)-pos_enter-1)
Pos_enter=instr(pos_enter,txt_entre,chr(13),vbtxtcompare)
loop
ce qui revient a peu près au même mais avec beaucoup plus de ligne et de temps......
A+