Report de données sur un autre onglet

Bonjour, à tous,

je cherche à reporter quelques données d'un onglet 1 à un onglet 2 et les mettre à la suite.

Je vous joins un exemple avec le résultat souhaité (fait manuellement).

Merci de votre aide par avance.

Bonsoir,

Sub ExtractionParamétrée()
    Dim prmA$, prmH$, Tex(), m%, n%, i%
    '***Paramètres d'extraction***
    prmA = "bob": prmH = "E"
    '*****************************
    With Worksheets("1")
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 6 To n
            If .Cells(i, 1) = prmA And .Cells(i, 8) = prmH Then
                ReDim Preserve Tex(m)
                Tex(m) = .Cells(i, 4) & " - " & .Cells(i, 3) & " - " & .Cells(i, 7)
                m = m + 1
            End If
        Next i
    End With
    Application.ScreenUpdating = False
    With Worksheets("2").Range("A1")
        .CurrentRegion.ClearContents
        .Resize(m).Value = WorksheetFunction.Transpose(Tex)
    End With
End Sub

Cordialement.

NB- La fonction NO.SEMAINE est inadéquate pour fournir le numéro de semaine en Europe (norme ISO 8601). Elle devrait être utilisée avec le paramètre 21, qui je crois n'existait pas encore sous 2007... Il ne manque pas de formules de calcul exact du numéro de semaine ISO, préférables à la numérotation américaine !

merci beaucoup pour la réponse