Copier des cellules d'une feuille vers une autre

Bonjour,

J'ai un petit problème dans mon code qui marchait pourtant bien avant. En effet je souhaite copier des cellules d'une feuille vers une autre en faisant une boucle sur toute une colonne tant qu'il y a des valeurs dedans. Le problème: j'ai une erreur type 13 alors qu'avant cela marchait très bien.

Avez vous une idée ?

Merci beaucoup !

Voici le code:

Sub Pointeur_NomRef_Feuille()

        For i = 8 To 2500
        j = 4
          Do While Cells(j, 1) <> ""
                If Worksheets("Consolidation").Cells(j, 1).Value = Worksheets("REF").Cells(i, 1).Value Then
                    Worksheets("Consolidation").Cells(j, 2).Value = Worksheets("REF").Cells(i, 4).Value
                End If
            j = j + 1
            Loop
        Next i
End Sub

bonjour,

un petit fichier ça serait bien

quelle est la valeur de i et de j lorsque tu as l'erreur ?

plus important que contiennent les cellules

Worksheets("Consolidation").Cells(j, 1)

et

Worksheets("REF").Cells(i, 1).Value

l'erreur est probablement provoquée car tu essaies probablement de travailler avec des valeurs nulles

ça ne serait pas plus simple de mettre une formule dans la colonne 2 de ta feuille consolidation ?