Corriger une macro

Bonjour, j'ai un fichier avec plusieur date, je voudrai grader seulement les lignes d'une date fixe que j'aurai rentré(code 2). J'ai modifié un code qu'on m'a proposé sur le forum pour garder les données entre deux périodes (code1). Le code 1 marche bien mais pas le code 2.

code 1:

Sub Selectionner()

Dim DerLig As Long, Ligne As Long

Application.ScreenUpdating = False

With Worksheets("Feuil1")

DerLig = .Range("C" & Rows.Count).End(xlUp).Row

For Ligne = DerLig To 3 Step -1

If .Range("C" & Ligne).Value < Range("A_Debut").Value Or .Range("C" & Ligne).Value > Range("A_Fin").Value Then

If .Range("C" & Ligne).Value < Range("B_Debut").Value Or .Range("C" & Ligne).Value > Range("B_Fin").Value Then

.Range("C" & Ligne).EntireRow.Delete

End If

End If

Next Ligne

End With

End Sub

code2:

Sub Selectionner()

Dim DerLig As Long, Ligne As Long

Application.ScreenUpdating = False

With Worksheets("Feuil1")

DerLig = .Range("C" & Rows.Count).End(xlUp).Row

For Ligne = DerLig To 3 Step -1

If .Range("C" & Ligne).Value = Range("A_Debut").Value Then

.Range("C" & Ligne).EntireRow.Delete

End If

Next Ligne

End With

End Sub

Bonjour

Tu veux garder que les lignes ayant la bonne date

Sub Selectionner()
Dim DerLig As Long, Ligne As Long
Application.ScreenUpdating = False
With Worksheets("Feuil1")
DerLig = .Range("C" & Rows.Count).End(xlUp).Row
For Ligne = DerLig To 3 Step -1
If .Range("C" & Ligne).Value <> Range("A_Debut").Value Then
.Range("C" & Ligne).EntireRow.Delete

End If
Next Ligne
End With
End Sub

PS: Quand tu publies une macro, places celle-ci entre les balises Code (que tu trouves en haut de la fenêtre)