Renvoie cellule feuille 2 vers feuille 1

bonjour à tous,

ci joint mon fichier Excel . Ma question est :

j'aimerai que dès lors que je remplisse la colonne H de ma feuille 2 ( avec ici le chiffre 1 ) que je puisse avoir un renvoi des informations des cellules B - C - D - E - F de la ligne correspondante vers la feuille 1 dans les colonnes H - I - J - K - L.

ou

Dès lors que je sélectionne un code destinataire de la feuille 2 , colonne A. Je puisse avoir le même renvoi des informations B - C - D - E - F vers la feuille 1, H - I - J - K - L .

je pense que c'est réalisable mais je n'arrive pas à créer ce lien.

merci pour votre aide.

fichier test

Bonjour,

Une proposition en VBA pour la 1ère partie Transfert des données marquée 1.

Si ça convient il suffit d'adapter la macro pour faire l'autre opération.

Cliquer sur le bouton Sélection 1 dans la feuil2

merci c'est bien ca.

par contre, pouvez vous m'expliquer comment le reproduire pas à pas ?

Re,

Les lignes qui commencent par un ' sont des commentaires explicatifs

Sub Trouve_Sélection1()
'Déclaration des différentes variables utilisées et leur type respectif
Dim cel As Range, derLig As Long, Lig1 As Integer
Dim NomDest As String, Adr1 As String, Adr2 As String, Dep As Variant, Ville As String, i As Integer
'Pour empêcher le réaffichage à chaque changement de feuille
'permet de gagner du temps d'exécution
Application.ScreenUpdating = False
'On commence par activer la feuil2
Sheets("Feuil2").Activate
'Etablir les n° de lignes de début et de fin pour lire les cellules et écrire les données récoltées dans la feuil1
Lig1 = 2: i = 2
derLig = Range("A" & Rows.Count).End(xlUp).Row
'Lecture des cellules de la colonne H feuil2 pour déterminer si elles contiennent 1
For Each cel In Range("H2:H" & derLig)
    Sheets("Feuil2").Activate
    'Si cel = 1 alors on prélève les données des colonnes B, C, D etc
    If cel = 1 Then
        NomDest = cel.Offset(0, -6): Adr1 = cel.Offset(0, -5): Adr2 = cel.Offset(0, -4): Dep = cel.Offset(0, -3): Ville = cel.Offset(0, -2)
    'On active la feuil1 pour y copier les données
    Sheets("Feuil1").Activate
    Cells(i, 8) = NomDest: Cells(i, 9) = Adr1: Cells(i, 10) = Adr2: Cells(i, 11) = Dep: Cells(i, 12) = Ville
    i = i + 1
    End If
Next cel

Application.ScreenUpdating = True
End Sub

J'ai oublié de préciser que Next cel permet de lire la cellule suivante pour voir si elle contient 1