Copier des données d'une feuille dans une autre en les associant

Bonjour à tous,

Voilà ce que je cherche à faire :

Je dispose de deux feuilles excel dans l'une se trouvent des numéros 1 à 20 dans la première colonne. Dans la deuxième feuille, j'ai dans la première colonne A des valeurs allant de 1 à 10 et dans les colonnes B et C les numéros de la première feuille dispatchés aléatoirement.

Je souhaite créer un programme vba qui dans la première feuille ajoute à coté de chaque numéro les valeurs qui lui sont associées dans la deuxième feuille.

Je joins mon fichier excel où j'ai mis en exemple le premier cas si ce n'est pas clair.

Merci pour votre aide

Bonjour Sand_, le forum,

Un essai....

Sub test()
 Dim i%, k%

  Application.ScreenUpdating = False

  Sheets("Feuil1").Range("B2:E21").ClearContents

   k = 2
   Do While k <= 21
    With Sheets("Feuil2")
      For i = 2 To 11
       If .Cells(i, 2) = Sheets("Feuil1").Range("A" & k) Or .Cells(i, 3) = Sheets("Feuil1").Range("A" & k) Then
        Sheets("Feuil1").Cells(k, Sheets("Feuil1").Cells(k, Cells.Columns.Count).End(xlToLeft).Column + 1) = .Range("A" & i)
       End If
      Next i
    End With
   k = k + 1
  Loop
End Sub

Cordialement,

Merci beaucoup

Re,

Merci pour ton retour et pour avoir passé le sujet en résolu,

Bonne continuation,

Cordialement,