Copier coller plusieurs cellules de plusieurs feuilles

Bonjour a toutes et tous, voici mon problèmes;

Apres plusieurs essaie de syntaxe différentes j'ai toujours une ou des erreurs, je m'explique; mon but est de copié les cellules"E4,E6,E8" de la feuille "SOMMAIRE" ainsi que les cellules "D","E","F","K","O" de la feuille "CRUAS" qui sont surgrisé par l'action d'une macro de recherche par texte dans la feuille "SOMMAIRE" dans les colonnes "A","B","C","D","E" des feuilles "MVT_SITE,ETALON,PRET" suivant le bouton que l'ont choisie entre "mvt site,etalo

nnage,pret emprunt/retour"

Bonjour,

Je n'ai pas parfaitement compris pour l'instant... En tout cas, voici une macro adaptable qui pour l'instant s'exécute au double clic sur une ligne de CRUAS. Les infos intéressantes sont reportées (pour l'instant sans contrôle) sur toutes les feuilles "MVT". Pour ça, j'ai nommé les infos de SOMMAIRE "Infos".

Sub Mouvement(cible As Range)

Dim t(1 To 8)

With cible
    lig = .Row
    For k = 1 To 5
        col = Choose(k, 4, 5, 6, 11, 15)
        t(k) = .Parent.Cells(lig, col).Value
    Next k
End With

For Each cell In Sheets("SOMMAIRE").Range("Infos")
    t(k) = cell.Value
    k = k + 1
Next cell

For Each ws In Worksheets
    If ws.Name Like "MVT*" Then
        nvl = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
        ws.Cells(nvl, 1).Resize(1, 8) = t
    End If
Next ws

End Sub

J'ai factorisé le code de la recherche pour qu'il soit identique en tout cas.

J'ai conscience que ça ne répond pas exactement à la demande mais j'ai le sentiment que cette macro s'inscrirait mieux dans le prolongement de la recherche.

Cdlt,