Bonjour le forum
J'ai une erreur d'exécution '429'
Sur le code suivant pour effacer les doublons:
'Effacer doublons
Set MonDico = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
i = 2
Do While Cells(i, "AB") <> ""
temp = Cells(i, "AB")
If Not MonDico.Exists(temp) Then
MonDico.Add temp, temp
i = i + 1
Else
Rows(i).EntireRow.Delete
End If
Loop
Sur d'autre poste la macro fonctionne bien (excel 2007)
Merci de votre aide