Bonjour à tous,

J'ai un souci pour finaliser une macro. Je compile des données comptables, et à ce titre, je prépare un fichier qui ne doit comporter que les données du mois arrêté (mois précédent le mois en-cours).
Dans un de mes fichiers qui m'est destiné et que je retraite, mes collaborateurs oublient très souvent de supprimer les lignes des premières opérations comptables du mois en-cours. Je dois donc scratcher ces lignes.
Voilà ce que j'ai fait comme code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Test()
 
Dim SKLR4 As Long, DateSup As Long
Dim ClosingDate As String
 
    With Sheets("Final LCESK GL data")
 
    SKLR4 = .Range("J" & .Rows.Count).End(xlUp).Row
 
    'Supprimer les lignes dont les dates sont celles du mois succédant celui de la clôture
 
    ClosingDate = InputBox("Entrez le dernier jour du mois clôturé (Format = jj/mm/aaaa)", "Définition de la date")
 
        For DateSup = SKLR4 To 2 Step -1
            If .Cells(DateSup, 7) > ClosingDate Then
            .Cells(DateSup, 7).EntireRow.Delete
            End If
        Next DateSup
 
    End With
 
End Sub
Problème, seules les lignes du 31/mm/2011 sont supprimées, alors que je voudrais supprimer celles du jj/10/2011. Les cellules en J sont toutes au format date "dd/mm/yyyy".
Pouvez-vous m'aider SVP ?

Vous remerciant par avance pour votre aide et vos conseils, je vous souhaite une bonne journée !