الفورم لايعمل الرجاء المساعده

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