Copier une range selon criteres

[teodormircea]

Bonjour le forum

J'aurais besoin d'un coup de pouce pour un projet.Je voudrais copier un range de valeurs sur un nouveau feuillet généré automatiquement.
Alors au début je voudrais choisir la colonne de la range et ensuite le critère.
Si critère trouve dans cette colonne alors copier toutes les lignes de cette range dans un nouveaux feuillet dénommé d'après le critère utilise.
Je rajoute un exemple.

 

[teodormircea]

Re : Copier une range selon criteres

Un code dont je travaille mais je suis bloque, quelcun a une idee ??

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