Complément d'informations dans un code

Bonjour

Un code ''Jeux" est créer

afin de sélectionner de la Feuille "Données"

les colonnes C;D;E depuis les sélections colonne A:A

Je souhaiterais modifier ce code pour renseigner et

ajouter les colonnes F;G;H;I;J

a partir des cellules A5;A6;A7;A8;A9

Merci pour votre aide

Bonjour

Si j'ai compris

Modifies la macro correspondante

Option Explicit
Sub Jeux()
Dim Ws As Worksheet
Dim Cel As Range, C As Range
Dim Col As Integer
    Set Ws = Worksheets("Données")
    Col = 3
    With Worksheets("Jeux")
        .Columns("C:J").Clear
        For Each Cel In .Range("A2:A9")
            Set C = Ws.Rows(1).Find(Cel, , xlValues, xlWhole)
            If Not C Is Nothing Then
                C.Resize(C.End(xlDown).Row, 1).Copy .Cells(2, Col)
                Col = Col + 1
            End If
        Next Cel
    End With
End Sub

Bonjour,

A+

Edit : Bonjour Banzai

Merci

Mon problème est résolu