diff --git a/bin/_merge82 b/bin/_merge82
index 3c89e35..8a4c2bc 100755
--- a/bin/_merge82
+++ b/bin/_merge82
@@ -1,4 +1,4 @@
 #!/bin/bash
 # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8
 
-exec "$(dirname -- "$0")/pdev" --tech-merge -Bdev82 dev74 "$@"
+exec "$(dirname -- "$0")/pdev" --tech-merge -Bdev82 dev74 -a "git checkout dev74" "$@"
diff --git a/bin/pdev b/bin/pdev
index f6d00c7..b4ab89c 100755
--- a/bin/pdev
+++ b/bin/pdev
@@ -122,11 +122,18 @@ Sinon, veuillez consulter le script et/ou le relancer
         die
     elif [ -n "$Deleted" -a -n "$Push" ]; then
         [ -n "$_KeepScript" ] || rm "$script"
+        [ -n "$AfterMerge" ] && eval "$AfterMerge"
     else
-        einfo "\
+        local msg="\
 Le script $script a été lancé avec les arguments 'merge${Delete:+ delete}${Push:+ push}'
 Vous pouvez consulter le script et/ou le relancer
     ./$script${ShouldDelete:+ delete}${ShouldPush:+ push}"
+        [ -n "$AfterMerge" ] && msg="$msg
+Il y a aussi les commandes supplémentaires suivantes:
+    ${AfterMerge//
+/
+    }"
+        einfo "$msg"
     fi
 }
 
@@ -145,6 +152,7 @@ TechMerge=
 SquashMsg=
 [ -z "$PMAN_NO_PUSH" ] && Push=1 || Push=
 [ -z "$PMAN_NO_DELETE" ] && Delete=1 || Delete=
+AfterMerge=
 args=(
     "fusionner la branche source dans la branche destination correspondante"
     " [source]
@@ -190,6 +198,8 @@ ne pas supprimer la branche après la fusion dans la destination"
     --delete Delete=1 "++\
 supprimer la branche après la fusion dans la destination.
 c'est l'option par défaut"
+    -a:,--after-merge AfterMerge= "\
+évaluer le script spécifié après une fusion *réussie*"
 )
 parse_args "$@"; set -- "${args[@]}"