Bonjour à tous,

j'ai un problème à soumettre à votre sagacité : Dans la routine ci-dessous, j'ai une erreur "Erreur d'exécution « 1004 »:La méthode Sort de la classe Range a échoué." et je ne comprends pas pourquoi. Pourriez-vous m'aider ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
    If Target.Column = 5 Then
        For i = 1 To 5
            If Range("D" & i + 6) <> "" Then
                Range("D" & i + 6) = StrConv(Range("D" & i + 6), vbUpperCase)
                derniere_ligne = Sheets("plan_comptable").Range("C1").End(xlDown).Row                
                If derniere_ligne = 1048576 Then derniere_ligne = 1 'si la colonne est vide à partir de C2 alors End(xlDown) renvoie 1048576 : d'où le test
                If Not Cherche(Sheets("Journal").Range("D" & i + 6), Sheets("plan_comptable").Range("C1:C" & derniere_ligne + 1)) Then
                    Sheets("plan_comptable").Range("C" & derniere_ligne + 1) = Range("D" & i + 6) 'si n'existe pas dans la liste, on l'ajoute
                    Sheets("plan_comptable").Range("C2:C" & derniere_ligne + 1).Sort
                End If 
            End If
        Next
    End If
Merci à vous.