Salut,
J'ai l'erreur suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Erreur d'éxecution '6' : dépassement de capacité
à l'éxecution de ca code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
'Suppression des doublons parfaits
            application.ScreenUpdating = False
            application.Calculation = xlCalculationManual
            Set champ = Range("A1:A" & [A65000].End(xlUp).Row)
            For k = [A65000].End(xlUp).Row To 1 Step -1
            If application.CountIf(champ, Cells(k, 1)) > 1 Then
            Rows(k).Delete Shift:=xlUp
            End If
            Next k
            application.Calculation = xlAutomatic
L'erreur est sur la ligne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
For k = [A65000].End(xlUp).Row To 1 Step -1
Au fait, quand j'éxecute le code dans un fichier exemple pour tester si il marche, je n'ai pas de problèmes, il me supprime les doublons.
Par contre, quand je l'intégre à ma macro, il me met l'erreur ci-dessus.
Est ce que quelqu'un peut me dire pourquoi?
Merci d'avance pour vos réponses.