Macro, mais pas à la ligne ?

Bonjour, comment faire pour que ces donnée récoltées ne reviennent pas à la ligne dans ma cellule ? merci à vous.

     If Cells(i, 3) <> vbNullString And Trim(Capture(5, 39, 11)) <> vbNullString Then
        Cells(i, 3) = Cells(i, 3) & Chr(10) & Trim(Capture(5, 39, 11))
         If Cells(i, 3) <> vbNullString And Trim(Capture(5, 39, 15)) <> vbNullString Then
        Cells(i, 3) = Cells(i, 3) & Chr(10) & Trim(Capture(5, 39, 15))
        End If
        End If

Bonsoir, tu parles de la cellule cells(i,3) ? Pas sûr d'avoir compris ta demande. Un essai ci-dessous

With Cells(i, 3)

If .Value <> vbNullString And Trim(Capture(5, 39, 11)) <> vbNullString Then
.Value = .Value & Chr(10) & Trim(Capture(5, 39, 11))

If .Value <> vbNullString And Trim(Capture(5, 39, 15)) <> vbNullString Then
.Value = .Value & Chr(10) & Trim(Capture(5, 39, 15))
End If

End If

.WrapText = False
End With

Oui tout les éléments de la colonne C en fait, d'ou i, 3.

Bonsoir,

Supprime les

& Chr(10)

Amicalement

Claude

Si simple que ça, et bien merci.