Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage, Plage1, Intersection As Range, DernLigne As Long
If Application.Intersect(Target, Range("B9:B41")) Is Nothing Then Exit Sub
'limite l'action a la plage B9:B41 de la "Page 5"
DernLigne = Sheets("Page 6").Range("A55").End(xlUp).Row + 1 'cherche dernière ligne de la "Page 6"
Plage1 = DernLigne 'Plage1 prend la valeur de DernLigne
Set Plage = Range("B9:B41")
Set Intersection = Intersect(Target, Plage)
If Not (Intersection Is Nothing) Then
Plage1 = Intersection 'Plage 1 prend bien la valeur, mais ne l'affiche pas en page 6
End If
End Sub