listbox index-ligne

Dim J As Long
For J = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(J) = True Then Sheets(NomFeuil).Range("j" & J + 3) = "X"
Next

Dim J As Long
For J = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(J) = True Then Sheets(NomFeuil).Range([COLOR="Red"]J + 3, 11[/COLOR]) = "X"
Next

 Private Sub ComboBox1_Change()
    Dim i As Long, L As Long, Li As Long
    If ComboBox1.ListIndex > -1 Then
        i = ComboBox1.ListIndex
        Me.ListBox1.Clear
        For L = 1 To UBound(Tbl)
            If Tbl(L, 11) = "" Then
                If Year(Tbl(L, ColDate)) = Val(Me.ComboBox2.Value) Then
                    If Val(Me.ComboBox1.List(i, 1)) = Month(Tbl(L, ColDate)) Then
                        Sheets(NomFeuil).Range("K" & L + 3) = "x"
                        With Me.ListBox1
                            .AddItem
                            .List(.ListCount - 1, 0) = Tbl(L, ColDate)
                            .List(.ListCount - 1, 1) = ModeP
                            .List(.ListCount - 1, 2) = Tbl(L, ColNumero)
                            .List(.ListCount - 1, 3) = Tbl(L, ColFournisseur)
                             .List(.ListCount - 1, 4) = Tbl(L, ColCause)
                             .List(.ListCount - 1, 5) = Tbl(L, ColMontant)
                        End With
                    End If
                End If
            End If
        Next L
    End If
End Sub