Copier-Coller en fonction d'une condition

Bonjour je débute en macro excel et j'ai un petit soucis.

Malheureusement je ne peux pas partager le fichier sur lequel je travaille car c'est un fichier professionnel de mon prof. la colonne E est une colonne avec que des chiffres de 1 à 7. donc je voudrais copier toutes les lignes dans un autre classeur que j'ai appelé "Analyse" en fonction de la colonne E ( ma condition est inférieur à 2).

Voici mon code:

Dim i As Integer
Dim derli As Long
Sheets.Add.Name = "Analyse"
derli = Worksheets("Table 2").Cells(Rows.Count, 5).End(xlUp).Row
For i = 1 To derli
If Cells(i, 5) <= 2 Then
Worksheets("Analyse des fonds ").Cells(1, 1) = Worksheets("Table 2").Cells(i, 5)
End If
Next

Dans ce code j'essaye de copier au moins juste la cellule mais je n'y arrive pas vraiment. J'espère que mon code pemet de comprendre la problématique.

Merci beaucoup d'avance.

j'ai oublié de préciser que notre prof nous interdit l'utilisation des macros.

Bonjour, sans fichier c'est effectivement difficile à faire.

Pour commencer essai de traduction de votre code :

Dim i As Integer
Dim derli As Long
'Ici vous créez une nouvelle feuille "Analyse"

Sheets.Add.Name = "Analyse"
derli = Worksheets("Table 2").Cells(Rows.Count, 5).End(xlUp).Row
For i = 1 To derli
If Cells(i, 5) <= 2 Then
'ici vous alimentez une feuille qui ne porte pas le nom de la feuille ajoutée et qui présente un espace en plus aprés "fonds"

Worksheets("Analyse des fonds ").Cells(1, 1) = Worksheets("Table 2").Cells(i, 5)
End If
Next

faudrait déjà commencer par corriger ceci

Nota vu l'avis du Prof dans ce cas pourquoi vous cassez la tête avec une macro.

Vous faite un tableau croisé dynamique à partir de son fichier puis vous déplacez l'onglet du Tableau croisé dans votre propre fichier.

Dans ce "TCD" vous pourrez filtrer à votre guise.

Oui pardon , le feuille s'appelle bien "Analyse".

Non mais il ne veut pas voir par exemple .AutoField etc.