Correction VBA

sub jours

Dim i As Integer 
i = 2 'Si ta première date est à la ligne 2 

do while cells(i,1)<>""

jourcell = day(cells(i,1)) & "/" & month(cells(i,1)) & "/" & year(cells(i,1))
jourcell = format(jourcell, "dd/mm/yyyy") 
 
If Day(Date) = 2 Then ' si le jour de la date du jour est un lundi
If jourcell <>Format(Date - 2, "dd/mm/yyyy") Or jourcell <> Format(Date - 1, "dd/mm/yyyy") Or b <> Format(Date , "dd/mm/yyyy") Then 

' si la date de la cellule est différente de l'avant veille, de la veille ou du jour j alors

ActiveSheet.Cells(i, 1).EntireRow.Delete 

End If
Else
If jourcell <> Format(Date - 1, "dd/mm/yyyy") Or b <> Format(Date , "dd/mm/yyyy") Then 

' si on n'est pas lundi, si la date de la cellule est différente de  de la veille ou du jour j alors
ActiveSheet.Cells(i, 1).EntireRow.Delete 

End If

end if
i=i+1
loop

end sub

Sub Test()
    With ThisWorkbook.ActiveSheet
        If Weekday(Date) = 2 Then   'Lundi est le 2eme jour selon la norme US
            SupprimerLigne Date - 2, Date
        Else
            SupprimerLigne Date - 1, Date
        End If
    End With
End Sub
Sub SupprimerLigne(LimiteB As Date, LimiteH As Date)
Dim Ligne As Long
    With ThisWorkbook.ActiveSheet
        For Ligne = .Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
            If .Cells(Ligne, 1) < LimiteB Or .Cells(Ligne, 1) > LimiteH Then .Rows(Ligne).Delete
        Next Ligne
    End With
End Sub

If Int(.Cells(Ligne, 1)) < LimiteB Or Int(.Cells(Ligne, 1)) > LimiteH Then .Rows(Ligne).Delete