XL 2013 Copier coller avec conditions en VBA

davy76 à dit:

Bonjour,

Je dispose d'un tableau toutes les semaines (le nombre de ligne varie suivant les semaines), que j'aimerais mettre en forme.
J'aimerais que lorsque la colonne A contient une ville, Excel reprenne l'info correspondante en colonne J.
Et fasse un copier coller des 2 colonnes (mais uniquement les lignes contenants les infos) sur la feuille Résultat attendu.

Merci de votre aide

Cliquez pour agrandir...

Private Sub Worksheet_Activate()
 Dim plage
 Application.ScreenUpdating = False
 Cells.Clear
    With Feuil1
        If .FilterMode Then .ShowAllData
        Set plage = .Range("$A$1:$j" & .Cells.Find("*", , , , xlByRows, xlPrevious).Row)
        plage.AutoFilter Field:=1, Criteria1:="<>"
        plage.SpecialCells(xlCellTypeVisible).Copy [a1]
        plage.AutoFilter
    End With
   Columns("B:I").Delete Shift:=xlToLeft
End Sub