Copier une ligne de chaque onglet dans une seule Page

Hello ,

je vous explique mon probléme , j'ai 500 onglets composés chacun d'informations .

J'aimerais recuperer la ligne 13 de chaque onglet afin de le mettre dans une page synthetique ( nom de la page 'Données Synthetique').

J'aimerais que les lignes recupérées soit compiler à la suite dans l'onglet 'Données Synthetique'...

J'ai essayer cette formule mais ça ne marche pas !!

Sub explication()

Dim Lig As Long, Col As Integer

Dim Wk As Worksheet

For Each Wk In Worksheets

If Wk.Name <> "Données Synthetique" Then

Sheets("Données Synthetique").Cells(Lig, Col) = Rows("13:13")

Lig = Lig + 1

End If

Next Wk

End Sub

Informations importante :

• les onglets non aucun nom en commun mais se trouve dans le même dossier Excel.
• il faut savoir que dans la page synthetique la premiere ligne est consacrer au libellé , la macro devra commencer à la ligne 2 !!

Merci !!!!!!!

bonjour,

une proposition

Sub aargh()
    k = 1    'n° de ligne sur synthèse
    With Sheets("données synthétique")    ' ?????
        For Each ws In Sheets
            If ws.Name <> .Name Then
                k = k + 1
                ws.Rows(13).Copy .Rows(k)
            End If
        Next
    End With
End Sub

Je viens de modifier mon post initial , je n'avais pas fini d'écrire !

Hello Sylvain, je pense que la solution de K2 est l'une des meilleures proposables (même si on peut faire la fine bouche sur le for each ^^).

Productivité et Reactivité !!

ça Marche !!

Merci les gars !! Au top comme d'hab !!