conflit entre 2 macros

Bonsoir,
Je sollicite votre aide car j'ai une erreur qui dépasse mes petites compétences.
J'ai fait trois macros, elles marchent lorsque l'une des trois n'est pas "activée" mais lorsque je réécrit les deux
j'obtiens un magnifique message d'erreur

" erreur définie par l'application ou par l'objet"
J'ai essayé tout ce que je savais.

Voici le code :

'---------NUMEROTE  AUTOMATIQUEMENT La cellule en colonne 10 lorsque celle en colonne 7 est modifiée-----------

Private Sub Worksheet_selectionChange(ByVal Target As Range)

Dim i As Long

i = 1

Do

i = i + 1

Cells(i, 10).Value = i

Loop While Cells(i, 7).Value <> ""

End Sub

 
 
'---------VERROUILLE LES CELLULES dès qu'elles sont saisies-----------------

Private Sub Worksheet_Change(ByVal Target As Range)

' NB : La protection est associée à un mot de passe : "toto"

'Suppression de la protection de la feuille

ActiveSheet.Unprotect 'Password:="cea"

'Verrouillage de la cellule qui vient d'être modifiée

' (identifiée par la variable objet de type Range intitulée "Target")

'si la cellule ne contient rien alors on sort de la routine

If Target.Value = "" Then Exit Sub

Target.Locked = True

'Remise en place de la protection de la feuille

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'Password:="cea"

 
'--------AFFICHAGE DATE des que colonne 7 modifiée--------------

If Target.Column = 7 Then

Cells(Target.Row, 8).Value = Now

End If

End Sub

Le deboggeur me surligne la ligne 7.
J'ai essayé de la modifiée avec :

cells(i,10).select et activecell.value=i

Mais ça n'a rien changé !

Je vous remercie pour vos réponses.