Bonjour Djkev, bonjour le forum,
Essaie avec l'événementielle Change ci-dessous à placer dans le composant onglet Feuil1 :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim COL As Byte 'déclare la variable COL (COLonne)
If Target.Address <> "$A$2" Then Exit Sub 'si le changement a lieu ailleurs qu'en A2, sort de la procédure
Set OS = Worksheets("Feuil2") 'définit l'onglet OS
Range("A4:C17").ClearContents 'efface d'éventuelles anciennes données
If Target = "" Then Exit Sub 'si A2 est effacée, sort de la procédure
COL = OS.Rows(2).Find(Target.Value, , xlValues, xlWhole).Column 'définit la colonne COL (recherche dans la ligne 2 de OS la valeur entière de A2 pour en extraire la colonne COL)
OS.Range("A4:B10").Copy Range("A4") 'copie la plage A4:B10 de OS et la colle dans A4
OS.Range(OS.Cells(4, COL), OS.Cells(10, COL)).Copy Range("C4") 'copie la plage de la colonne COL et la colle dans C4
End Sub