Bonjour,

debutant en vba, je cherche a effectuer une boucle qui permetterait d'inserer une ligne à chaque changement de valeur d'une cellule , j'ai commencé un code mais je me retrouve avec une erreur d'execution 438 " propriete ou méthode non geree par cet objet".
j'ai mis le code dans un module, merci d'avance pour votre aide.
car là je suis perdu
voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub insert()
Dim cellule As Range
 
For Each cellule In Range("d8:d" & Range("d5536").End(xlUp).Row)
If Sheets("Rapport1").celluleChange.value Then cellule.Entirerows.insert Shift:=xlDown
Next cellule
End Sub