Bonjour Nicoben, bonjour le forum,
Peut-être comme ça :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then
If UCase(Target.Value) = "MKT" Then ScrollArea = Cells(Target.Row, 10).Address
ElseIf Target.Column = 10 Then
If Target.Value <> "" Then
ScrollArea = ""
Else
If UCase(Target.Offset(0, -1).Value) = "MKT" Then ScrollArea = Cells(Target.Row, 10).Address
End If
End If
End Sub