supp les lignes vides

[titooooo]

bonjour

je dispose d'une feuille qui contient plusieurs ligne
une deuxième qui affiche seuls les ligne qui obéissent a une condition

je veux une troisième qui prends les résultat de la feuille 2 mais qui affiche les résultat de la feuille 2 mais en enlevant les ligne vide

je veut l"avoir en exécutant une macro

 

[job75]

Bonsoir titooooo,

Pour renseigner la feuille "final" autant partir de la 1ère feuille :

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells.ClearContents 'RAZ
With Feuil1.UsedRange
    .Rows(1).Insert xlDown
    Union(.Rows(0), .Cells).AutoFilter 1, "I1"
    .Copy [A2]
    .Parent.AutoFilterMode = False
    .Rows(0).Delete xlUp
End With
End Sub

La macro s'exécute quand on active la feuille.

A+