Bonjour à tous,

Je sollicite votre aide pour m'aider à comprendre mon erreur dans mon code.
En effet, je souhaite qu'il efface les données de colonnes dont les cellules sont identiques.

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub organisation()
Dim i, j As Integer
For j = 1 To 12
For i = 1678 To 1 Step -1
    If Cells(i, j).Value = Cells(i - 1, j).Value Then
    Cells(i, j).Value = ""
    End If
Next i
Next j
End Sub
Le fait est que le debogueur me dit qu'il y a une erreur 1004 mais je ne comprends pas pourquoi. Ca me semble juste pourtant....
Merci de votre aide
Vbamateur