Valeur sur boucle

[basketeur]

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

 

[XanorK]

Re : Valeur sur boucle

Bonsoir basketeur

Dim i As Byte

5000 est trop grand pour byte : Dim i As Integer


XanorK