Copier coller selon conditIon en VBA

Bonjour,je travail sur un fichier qui me permet de créé des feuilles avec onglet nommé suivant une liste d'une feuille et qui se lance automatiquement,Et par defaut la liste est copier coller avec lisaison sur le fichier "résumé" de B3:B15,Dans cet exemple les onglets sont nommés "TEST1......." En resumer , ce que je souhaite, lorsque la cellule B3 affiche l'onglet "test1" , alors automatiquement on fait un copier coller avec liaison des cellules onglet "Test1" G5:G7 et les coller dans les cellules B5:B7 de l'onglet Résumé et ainsi de suite pour chaque onglets créé,J’espère que je me suis fait comprendre,

Voir dans le fichier en pj pour explication

Par avance, merci

Bonjour Farid,

Je te propose de coller le code suivant dans l'évènement "Change" de la "Feuil1" :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oSheet As Worksheet
    Dim oRangeOrigin As Range
    Dim oRangeTarget As Range

    Dim booOK As Boolean
    Dim lCol As Long

    'On s'assure que la cellule modifié est sur la ligne 3
    If Right(Target.Address, 1) = "3" Then
        'On recherche si la feuille correspondant à la valeur de la cellule mofifiée existe
        On Error GoTo Sheet_NotExists
        'On affecte la feuille choisie
        Set oSheet = ThisWorkbook.Sheets(Target.Value)
        On Error GoTo 0
        'On récupère la colonne de la cellule modifiée
        lCol = Target.Column
        'On affecte les plages origine et cible
        Set oRangeOrigin = oSheet.Range("H5:H7")
        Set oRangeTarget = ActiveSheet.Range(ActiveSheet.Cells(5, lCol), ActiveSheet.Cells(7, lCol))
        'On copie la plage origine
        oRangeOrigin.Copy
        'Dans la plage cible
        oRangeTarget.PasteSpecial xlPasteAll
    End If
Sheet_NotExists:
    'On fait le ménage
    Set oRangeOrigin = Nothing
    Set oRangeTarget = Nothing
    Set oSheet = Nothing
End Sub

Je joins mon classeur de test.

Bonjour , merci pour ta réponse je vais essayé ta proposition.

Bien a toi