Sub EffacerLignesBase()
Dim LigneFin As Long
'on recherche la dernière ligne
LigneFin = Cells(Rows.Count, IndTabBase.Ste).End(xlUp).Row
'on nettoie
Range(Cells(Base_LigneDeb - 1, IndTabBase.MINELEMENTS), Cells(LigneFin, IndTabBase.MAXELEMENTS)).AutoFilter Field:=IndTabBase.Periode, Criteria1:=">=" & Params.PeriodeDeb, Operator:=xlAnd, Criteria2:="<=" & Params.PeriodeFin
If Cells(Rows.Count, IndTabBase.Ste).End(xlUp).Row >= Base_LigneDeb Then
Range(Cells(Base_LigneDeb, IndTabBase.MINELEMENTS), Cells(LigneFin, IndTabBase.MAXELEMENTS)).SpecialCells(xlCellTypeVisible).EntireRow.Delete 'Ca patiente très longtemps sur cette ligne
End If
ActiveSheet.AutoFilterMode = False
LigneFin = Cells(Rows.Count, IndTabBase.Ste).End(xlUp).Row
Range(Cells(Base_LigneDeb - 1, IndTabBase.MINELEMENTS), Cells(LigneFin, IndTabBase.MAXELEMENTS)).AutoFilter
End Sub