diff --git a/galanga/nagios-irc-bot.pl b/galanga/nagios-irc-bot.pl
index 1679608..735c3dd 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
 	    {
@@ -278,6 +282,8 @@ sub on_public {
 	    }
         } elsif ($arg =~ /^(?:$mynick[,: ]|!)\s*recheck:?\s*all$/) {
 	    #recheck all
+    	    &refresh ();
+	    $conn->privmsg([ @to ], sprintf ( "%d problemes enregistres", ( scalar @ACKS )) );
 	    for my $i ( 0..(@ACKS-1) )
 	    {
 		next unless($ACKS[$i]);