MACRO : boucle décalage cellule à droite

Bonjour les amis, en fait je voulais bien mettre en place une boucle de décalage des celule à droite qui me servira

de mettre n place une macro pour resoudre un probleme.

en fait j'aimerai bien que

que k reçoi comme valeur une cellule reférence

que par raport de cette cellule on décale pour n fois à droite et que chauqe fois quand se decale l cellule prend une valeur x

Sub Regime()
'
' Regime Macro
' Macro enregistrée le 09/02/2007 par ELIOR
'

'
Dim i, j, e As Integer
Dim k As Range

 For i = 68 To 81
 For j = 5 To 18
            If Worksheets("T1").Range("C" & i).Value = 0 Then
            Worksheets("Bilan T1").Range(k.Offset(6, j).Value) = " "
            Else
            Worksheets("Bilan T1").Range(k.Offset(6, j).Value) = Worksheets("T1").Range("C" & i).Value & " " & "A" & " " & Worksheets("T1").Range("A" & i).Value
            End If
   j = j + 1
   Next
 Next
   i = i + 1
 Next
End Sub

[/code]

Bonjour,

au lieu dd'utiliser Range, utilise Cell(), et défini l'intérieur comme des variables.

Cells perment de situer un cellule de manière numérique (regarde dans l'aide de excel)

cell(1,1) est égal à range("A1")

par exemple.

Cordialement

petidani