Valeur sur boucle

basketeur

XLDnaute Nouveau
:) Bonsoir,
j'ai grace a vous reussi a resoudre 1 probleme mais la je seche encore
Pourquoi sur la boucle je ne peux pas mettre la valeur 5000?
Sub couper()
Dim i As Byte
For i = 1 To 5000

If Range("B" & i).Value = 0 Then
Range("A" & i).Cut Destination:=Range("F" & i)
End If
Next i
End Sub
 

Statistiques des forums

Discussions
312 836
Messages
2 092 631
Membres
105 475
dernier inscrit
ramzi slama