probleme de worksheet_change

Bonjour le forum

voila donc mon probleme.

j ai une command qui suit :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('E6:E28')) Is Nothing Then
If Target = '' And Target.Offset(0, 1) = '' Then
.......


et sur ma feuille j'ai un bouton qui s'appelle 'remise à zéro' qui rempli cette fonction :
Range('E6:E28') = ''

Mais voila, cela bug (je pense que c'est du au fait que dans ma 1ere fonction j'utilise la command target.row et que dans la seconde manip cela selection plusieur rows)
comment faire ???

Merci a tous