Erreur défini par l'objet

Bonjour,

Je rencontre régulièrement l'erreur suivante:

erreur défini par l'application ou par l'objet.

voici ma macro, qui consiste a remplir chaque cases vides par les valeurs de la ligne précédente de la même colonne:

Sub remplissage()
Dim i As Integer
Dim j As Integer
Dim dercolonn As Integer
Dim derlign As Integer

derlign = Range("A" & Rows.Count).End(xlUp).Row
dercolonn = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

For i = 1 To derlign
    For j = 1 To dercolonn
     If Cells(i, j).Value = "" Then
        Cells(i, j).Value = Cells(i - 1, j).Value
        End If
    Next
Next

End Sub

L'erreur se produit a cette ligne : Cells(i, j).Value = Cells(i - 1, j).Value

je l'ai assez souvent et je ne comprends jamais d'où elle vient....

Je ne suis pas une professionnelle du vba.

Par avance je vous remercie énormément de votre aide.

Bonjour,

Si i=1, alors Cells(i - 1, j) fait référence à la cellule de la colonne j en ligne 0, qui n'existe pas.

Ça doit arriver quand Cells(1,j) est vide, donc tu peux faire démarrer i à 2 ou placer :

If Cells(i, j).Value = "" and i>1 Then

Mais quelle idiote!! Bien sur!!

Merci beaucoup!!!!