probleme ecriture macro

Avant tout bonsoir,
je me presente raf 21ans celibataire.....enchanté

J'ai un petit probleme d'ecriture tout bete mais je trouve pas

voila ma macro

nbligne = Range('z1')

For c = 1 To nbligne Step 2
Range('d' & c + 1).Select
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 1
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
next c

la c que pour la colone d, que mettre a la place de 'Range('d' & c + 1).Select' pour selectionner de la colone d à la colonne f par exemple

merci d'avance