[Résolu] VBA Long dans la suppression

Sub MasquerLignesVide()
 With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
 End With
 For i = 250 To 7 Step -1
        If Application.WorksheetFunction.CountBlank(Range(Cells(i, 1), Cells(i, 5))) = 5 Then
           Rows(i).EntireRow.Hidden = True
        End If
    Next i
 With Application
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
 End With
End Sub

Sub Lessive()
Dim Fringue As Variant, Lessive As Variant, Machine As Variant
Dim MAchineBlack As Variant, MAchineWhite As Variant, MAchineColor As Variant
For Each Fringue In BacALinge
    Select Case Fringue.Color
        Case Is = Black
            ReDim Preserve MAchineBlack(1 To UBound(MAchineBlack, 1) + 1)
            MAchineBlack(UBound(MAchineBlack)) = Fringue.Name
        Case Is = White
            ReDim Preserve MAchineWhite(1 To UBound(MAchineWhite, 1) + 1)
            MAchineWhite(UBound(MAchineWhite)) = Fringue.Name
        Case Else
            ReDim Preserve MAchineColor(1 To UBound(MAchineColor, 1) + 1)
            MAchineColor(UBound(MAchineColor)) = Fringue.Name
    End Select
    Lessive = Fringue.Color
Next Fringue

For Each Machine In Machines
    Do
        Machine
    Loop
Next Machine
End Sub