Bonjour, vous répondez vous même à la question :
Votre boucle actuelle réalise actuellement la somme des arrêts avec le motif "running"
Dans votre code la condition motif se trouve donc ici :
If Cells(i, 4)=Textbox1.Text then
Celà semble vouloir dire que le motif "Running" est indiqué dans la textbox1 ----->
If Cells(i, 4)<>Textbox1.Text then