Private Sub CommandButton1_Click()
Dim i As Long, lr As Long, ws As Worksheet
Set ws = Sheets("Sheet1")
lr = ws.Range("X" & Rows.Count).End(xlUp).row
s = 0
For i = 1 To lr
If ws.Range("x" & i) = Cmb_Subscription.Value Then
LsAdAm.AddItem
LsAdAm.ColumnCount = 8
LsAdAm.List(s, 1) = ws.Range("b" & i)
LsAdAm.List(s, 2) = ws.Range("c" & i)
LsAdAm.List(s, 3) = ws.Range("f" & i)
LsAdAm.List(s, 4) = ws.Range("l" & i)
LsAdAm.List(s, 5) = ws.Range("m" & i)
LsAdAm.List(s, 6) = VBA.Format(ws.Range("g" & i), "dd.mm.yyyy")
LsAdAm.List(s, 7) = VBA.Format(ws.Range("h" & i), "dd.mm.yyyy")
LsAdAm.List(s, 8) = ws.Range("w" & i)
s = s + 1
End If
Next i
End Sub