Sub Copie()
'Feuil1 et Feuil2 sont les CodeNames des feuilles
Dim source As Range, dest As Range, n
Set source = Feuil1.[B5:F5] 'plage à adapter
Set dest = Feuil2.[D14] 'à adapter
For n = 1 To source.Count
dest.Offset(, 2 * n - 2) = source(n)
Next
End Sub