Afficher ligne d'une ListView dans MsgBox

Private Sub Aff_Com_Click()
Dim WsCo As Worksheet
Dim iR&, i%
Dim T As Commande
Dim Temp As String
Set WsCo = Worksheets("Cdes")
iR = WsCo.Range("A65536").End(xlUp).Row + 1
i = 2
With G_Clients.ListView2
    l = .SelectedItem.Index
    Temp = .ListItems(l).Text
        For i = 2 To iR
            If WsCo.Cells(i, 1) = Temp Then
                With T
                    .NumCom = WsCo.Cells(i, 1)
                    .IdC = WsCo.Cells(i, 2)
                    .Désignation = WsCo.Cells(i, 3)
                    .Montant = WsCo.Cells(i, 4)
                    .DateCom = WsCo.Cells(i, 5)
                    .DateLiv = WsCo.Cells(i, 6)
                    MsgBox T.NumCom & vbCrLf & T.IdC & vbCrLf & T.Désignation & vbCrLf & T.Montant & vbCrLf & T.DateCom & vbCrLf & T.DateLiv, vbOKOnly + vbInformation, Commande
                End With
            End If
        Next
End With
End Sub

Private Sub Aff_Com_Click()
Dim WsCo As Worksheet
Dim iR&, i%
Dim T As Commande
Dim Temp As String
Dim texte As String
Set WsCo = Worksheets("Cdes")
iR = WsCo.Range("A65536").End(xlUp).Row + 1
i = 2
With G_Clients.ListView2
    l = .SelectedItem.Index
    Temp = .ListItems(l).Text
        For i = 2 To iR
            If WsCo.Cells(i, 1) = Temp Then
                With T
                    .NumCom = WsCo.Cells(i, 1): texte = WsCo.Cells(1, 1) & vbTab
                    .IdC = WsCo.Cells(i, 2): texte = texte & WsCo.Cells(1, 2) & vbTab
                    .Désignation = WsCo.Cells(i, 3): texte = texte & WsCo.Cells(1, 3) & vbTab
                    .Montant = WsCo.Cells(i, 4): texte = texte & WsCo.Cells(1, 4) & vbTab
                    .DateCom = WsCo.Cells(i, 5): texte = texte & WsCo.Cells(1, 5) & vbTab
                    .DateLiv = WsCo.Cells(i, 6): texte = texte & WsCo.Cells(1, 6) & vbNewLine
                    texte = texte & T.NumCom & vbTab & vbTab & T.IdC & vbTab & T.Désignation & vbTab & T.Montant & vbTab & T.DateCom & vbTab & T.DateLiv ', vbOKOnly + vbInformation, Commande
                    MsgBox texte, vbOKOnly + vbInformation, Commande
                    'MsgBox T.NumCom & vbCrLf & T.IdC & vbCrLf & T.Désignation & vbCrLf & T.Montant & vbCrLf & T.DateCom & vbCrLf & T.DateLiv, vbOKOnly + vbInformation, Commande
                End With
            End If
        Next
End With
End Sub