re sousou, en fait je me suis trompé, les cellules ou il faut des zeros sont à gauche de la cellule active.
j'ai reussi à contourner le probleme en reecrivant le contenu de la cellule qui n'est pas consernée par les zero :
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.End(xlToLeft).Column)) = 0
Range("b37").Value = "SORTIES CHQ/CB"
merci beaucoup pour ton aide car grace à vous tous j'ai enfin fini mon premier programe qui est une gestion de compte bancaire .
merci à tous
à tres bientot pour le prochain programe, il faut croire que je prend gout au VBA.
dj.run