If Not Application.Intersect(ActiveCell, Range("I6")) Is Nothing Then Exit Sub
On Error Resume Next
col = Range("M6:IV6").Find(Range("I6").Value, LookIn:=xlValues, lookat:=xlWhole).Column
If Err.Number <> 0 Then
MsgBox "la valeur cherchée n'existe pas"
Else
ActiveWindow.ScrollColumn = col
End If
End If
End Sub