Copier des cellules dans une colonne

[Frelon13]

Bonjour à tous,
Je cherche à copier dans une plage de données (une colonne vide) le contenu d'une cellule qui est située dans la colonne suivante.
Il faudrait que cette manipulation soit répétée toutes le 4 colonnes.
Le tableau à traiter contient 475 colonnes et 130 lignes
Pour être plus explicite, je joins en pj un extrait du tableau (feuille 'Original') et le résultat souhaité (feuille 'Résultat')
Mon niveau en VBA est (très) débutant. Tout coup de pouce est bienvenu !
Merci par avance, Cordialement.

 

[gilbert_RGI]

Re : Copier des cellules dans une colonne

bonjour

à adapter suivant la hauteur et du nombre de colonnes remplies

Sub test()
For i = 4 To 40 Step 4
Cells(4, i - 2).Select
If Cells(2, i - 1) = "" Then Exit Sub
    ActiveCell.FormulaR1C1 = "=R2C" & i - 1
    Selection.AutoFill Destination:=Range(Cells(4, i - 2), Cells(26, i - 2)), Type:=xlFillDefault
    Range(Cells(4, i - 2), Cells(26, i - 2)).Select
Selection.Font.Bold = True
    Next
End Sub

 

[Frelon13]

Re : Copier des cellules dans une colonne

Super ! Merci bcp Gilbert_RGI !!