Suppression de lignes si valeur non inclut entre 2 dates

Bonjour,

Je suis novice en VBA je me casse pas mal les dents mais je ne me décourage pas!

Je souhaiterais supprimer les lignes d'un tableau dont la date n'est pas comprise entre deux dates préalablement renseigné par l'utilisateur.

Voici mon code et je ne comprends pas pourquoi cela bug:

'Selectionne des dates à conserver'

datedeb = InputBox("Saisir la date de DEBUT ", "MM/DD/YY")

datefin = InputBox("Saisir la date de FIN", "MM/DD/YY")

'Efface les lignes hors date'

For i = 30 To 1 Step -1

If Cells(i, 8).Value < datedeb Or Cells(i, 8) > datefin Then

Rows(i).Delete shift:=xlUp

End If

Next i

Next i

Vous trouverez ci-joint le fichier excel pour plus de clarté.

D'avance merci

salut

deux

Next i

Next i

la zone est protegée

'Range("E4").Select

'ActiveSheet.Protect

et les lignes

seront déplacées aufure et mesue de la suprission alors ....

Bonjour ROM007,

Bonjour AMIR,

Ta macro après corrections :

Sub TEST()
Dim datedeb As Date
Dim datefin As Date

    'classement du tableau par date'
    ActiveSheet.Unprotect
    Range("E4:H11").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("H4"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("E4:H11")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("E4").Select

    'Selectionne des dates à conserver
    datedeb = InputBox("Saisir la date de DEBUT ", "MM/DD/YY")
    datefin = InputBox("Saisir la date de FIN", "MM/DD/YY")

    'Efface les lignes hors date
    For i = 30 To 1 Step -1
        If Cells(i, 8).Value < datedeb Or Cells(i, 8) > datefin Then
            Rows(i).Delete shift:=xlUp
        End If
    Next i
    ActiveSheet.Protect

End Sub

A+

Merci Frangy et Amir pour votre aide s'est nickel ça marche.