diff --git a/galanga/nagios-irc-bot.pl b/galanga/nagios-irc-bot.pl
index 1679608..436575d 100755
--- a/galanga/nagios-irc-bot.pl
+++ b/galanga/nagios-irc-bot.pl
@@ -251,6 +251,8 @@ sub on_public {
 		&adjust_nick ( $conn );
 	    }
         } elsif ($arg =~ /^(?:$mynick[,: ]|!)\s*list\s*$/) {
+	    &refresh ();
+	    $conn->privmsg([ @to ], sprintf ( "%d problemes enregistres", ( scalar @ACKS )) );
 	    my $id = 0;
 	    foreach ( @ACKS )
 	    {
@@ -271,6 +273,8 @@ sub on_public {
 		printf "[%lu] SCHEDULE_FORCED_SVC_CHECK;%s;%s;%lu\n",time(),$host,$svc,time();
 		close CMDPIPE;
 		$conn->privmsg([ @to ], sprintf ( "Recheck forcé pour %s: %s", $host, $svc ) );
+	    	&refresh ();
+		$conn->privmsg([ @to ], sprintf ( "%d problemes enregistres", ( scalar @ACKS )) );
 	    }
 	    else
 	    {
@@ -287,6 +291,8 @@ sub on_public {
 		printf "[%lu] SCHEDULE_FORCED_SVC_CHECK;%s;%s;%lu\n",time(),$host,$svc,time();
 		close CMDPIPE;
 		$conn->privmsg([ @to ], sprintf ( "Recheck forcé pour ack : %s du host %s: %s", $i, $host, $svc ) );
+	    	&refresh ();
+	    	$conn->privmsg([ @to ], sprintf ( "%d problemes enregistres", ( scalar @ACKS )) );
 	    }
         } else {
 	    $self->privmsg([ @to ], "Yo!");