Bonjour,
Sub Test()
Dim Col As Integer
Application.ScreenUpdating = False
Cells(3, 200).Resize(194).Copy
For Col = 204 To 572 Step 2
Cells(3, Col).Resize(194).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next Col
Application.CutCopyMode = False
End Sub
Rq : de GT à GV, le décalage est de 2 colonnes.
A+