Ubound

Bonjour,

POUR KOI ce code ne marche pas?
pour z5 et z6 , il me recupere le mot mais avec un saut !!!

 If UBound(bdgo) = 4 Then
             w1 = Left(ThisWorkbook.Sheets("Validation non fausse detection").Cells(i, 14).Value2, InStr(ThisWorkbook.Sheets("Validation non fausse detection").Cells(i, 14).Value2, Chr(10)) - 1)
             x1 = Mid(ThisWorkbook.Sheets("Validation non fausse detection").Cells(i, 14).Value2, Len(w1) + 2, Len(ThisWorkbook.Sheets("Validation non fausse detection").Cells(i, 14).Value2))
             z1 = Left(x1, InStr(x1, Chr(10)) - 1)
             z2 = Mid(x1, Len(z1) + 2, Len(x1))
             z3 = Left(z2, InStr(z2, Chr(10)) - 1)
             z4 = Mid(z2, Len(z3) + 2, Len(z2))
             z5 = Left(z4, InStr(z4, Chr(10)))
             z6 = Mid(z4, InStr(z5, Chr(10)))
             
             End If

merci pour tt reponses