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