Compresser tous les répertoires en 7z

Imaginons une dizaine de dossiers que l'on souhaite chacun compresser sous la forme d'une archive. Rien de plus simple sous Linux :

for D in *; do 7z a archive-$D.7z $D ; done

On pourra bien sûr remplacer * par la chaîne de caractères commune à tous les dossiers... ou utiliser la commande 'find . -maxdepth 1 -type d'.