Copier/coller une partie de ligne sur une autre feuille

Bonjour,

J'aimerai copier les cellules E, F et G qui contiennent "T11" en A dans l'onglet "traitement" et les coller dans l'onglets "références" dans les cellules B7, C7 et D7 jusqu'à la ligne 66.

J'ai beau essayé je n'y arrive pas..

Merci pour votre aide.

Bonne journée.

Bonjour &

à tester,

Sub test()
Set sh1 = Sheets("Traitement")
Set sh2 = Sheets("Références")
crt = Array("T11", "R7", "R6")
col = Array(1, 6, 11)

For j = LBound(crt) To UBound(crt)
  For i = 7 To sh1.Cells(Rows.Count, "A").End(xlUp).Row

    If sh1.Cells(i, "A") = crt(j) Then
     rw = sh2.Cells(Rows.Count, col(j)).End(xlUp).Row + 1
     sh2.Cells(rw, col(j)) = crt(j)
     sh2.Range(Cells(rw, col(j) + 1).Address, Cells(rw, col(j) + 3).Address) = sh1.Range("E" & i & ":G" & i).Value
    End If
  Next i
Next j
End Sub

Bonjour,

C'est impeccable, merci beaucoup !! =D

Bonne journée,