Déplacer cellules

Salut tlm

ma question est

Sub georges() 
tablo = Sheets(6).Range("E44:J44").Value 
Sheets(5).Range("A6:F6") = tablo 
End Sub

Ce que je voudrais faire , c'est que le code fait l'opération suivante ::

E44:J44 of Sheet 6 to A6:F6 Sheet 5

E44:J44 of Sheet 7 to A7:F7 Sheet 5

E44:J44 of Sheet 8 to A8:F8 Sheet 5

et ainsi de suite ....

Merci

Salut le forum

Georgesme un façon de faire

Sub georges()
Dim I As Byte
For I = 6 To 8
tablo = Sheets(I).Range("E44:J44").Value
Sheets(5).Range("A" & I & ":F" & I) = tablo
Next I
End Sub

Mytå