Code VBA pour copier des lignes Excel en fonction du contenu d'une cellule

Bonjour,

Je vous remercie par avance pour votre aide. Je bloque sur code VBA. J'aimerais pouvoir copié des lignes en fonction d'un critère sur une autre feuille.

Ci-dessous ce que j'ai déjà fait :

L'idée du code :

Si la cellule ("AS" & chiffre) est différente de zéro, alors sélectionner toute la ligne et la copié sur une autre feuille.

-----Code-----

fintable = Sheets("fixed").Range("A100000").End(xlUp).Row 'Je récupère la dernière ligne de la feuille fixed
compteur = 2 'Tentative de mettre un compteur, pour récupérer les feuilles
For s = 3 To fintable
If Sheets("fixed").Range("AS" & s).Value <> 0 Then
compteur = compteur + 1
Rows(s).EntireRow.Copy Feuil2.Range("A" & compteur)
End If
Next s
End Sub

----fin code----

Quand je lance la procédure, il n y a rien qui se passe.

Un grand merci pour votre aide.

Rav

Bonjour Ravdje

Perso, j'ai fait un essai de ton code et cela fonctionne

As-tu un extrait de fichier ?

Merci

Patty,

Merci pour ta réponse rapide. Effectivement, ça fonctionne. Je viens de faire le test. il me manquait juste une contrainte.

Je te souhaite une excellente soirée.

Pour ceux qui veulent utiliser ce code, il fonctionne très bien.