Code qui bloque Excel

Bonjour

m'entrainant en vba , j'ai fais ce petit code , il tourne mais monopolise toutes les ressources de mon pc

Private Sub Worksheet_Change(ByVal Target As Range)
dim i as integer
for i = 1 to 10
cells(i,5)=cells(i,6)

next

end if

end sub

[/code]

le code s'execute à la ligne i=1 puis cela me bloque completement excel !! sans vraiment en comprendre la raison

en vous remerciant pour toute explications

cordialement

je l'ai mal tapé

    Private Sub Worksheet_Change(ByVal Target As Range)
           dim i as integer
    for i = 1 to 10
           cells(i,5)=cells(i,6)
     next

end sub

Bonjour

Une solution

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
  Application.EnableEvents = False
  For i = 1 To 10
    Cells(i, 5) = Cells(i, 6)
  Next
  Application.EnableEvents = True
End Sub

Il serait peut être intéressant de limiter la zone contrôlée par l'évènement Change

je te remercie , c'est noté pour ma formation !