Copy range in new sheet by criteria

Hello forum

I need your help for a little project.

I want to copy a range of data in a new sheet using a criteria. First i would like to choose a column, and second the criteria.If criteria in this column is meet , copy all rows in the range that meet that criteria in a new sheet named after the criteria

Have a look at this question.

Here a chopped code , but is not working, some help pls

Code:

---

Sub ANALYSE_LEDGER()


Dim X As Integer
     
      Dim cc As String
      Dim c As Range
    Dim lRow As Long
    Dim NewWB As Workbook
   
   
    Application.ScreenUpdating = False
    Set NewWB = Workbooks.Add
    col = Application.InputBox("No colonne?", Type:=1)
    Set champ = Columns(col)
    cc = InputBox(Prompt:="Chose Criteria")
   
    For Each c In champ.SpecialCells(xlCellTypeConstants, 66)
   
      If cell.Value Like "*" & c & "*" Then
      Range(Cells(c.Row, 1), Cells(c.Row, 66)).Copy
           
            NewWB.Activate
            lRow = lRow + 1
            ActiveSheet.Paste Destination:=Worksheets("Sheet1").Cells(lRow, 1)
         
 End If

    Next c
   
    End Sub

---