Algo traduit en vba

Bonjour,
je voudrais avoir la traduction de mon algorithme en VBA !! SVP AIDER NOUS!

Variables :
Classe, Matière, Nom, Encore, Suite, Choix : Caractère
Note : réel
L, C : entier
PROCEDURE GENERALE
Suite = « O »
Tant que Suite = « O »
Choix = « M »
Tant que Choix = « M »
Ecrire « choisir le mode de saisie : un élève tapez E, la classe entière, tapez C», Choix
Si Choix = « E » alors
Appeler Saisie_Eleve
Sinon si Choix = « C » alors
Appeler Saisie_Classe_Entiere
Sinon
Ecrire « Erreur de saisie »
Choix = « M »
Fin si
Fin si
Fin Tant que
Ecrire « Voulez-vous saisir d’autres notes ? O/N», Suite
Fin Tant que
FIN PROCEDURE
Procédure Saisie_Eleve
Appeler Choix_Classe
Appeler Choix_Matiere
Appeler Saisie_Note_Eleve
Fin procédure
Procédure saisie_Classe_Entiere
Appeler Choix_Classe
Appeler Choix_Matiere
Appeler Saisie_Notes_Classe
Fin procédure
Procédure Choix_Classe
Class= « rien »
Tant que Class = « rien »
Ecrire « choisir la classe », Class
Si Class = « TS1 » alors
Activer la feuille TS1
Sinon si Class = « TS2 » alors
Activer la feuille TS2
Sinon si Class = « TS3 » alors
Activer la feuille TS3
Sinon
Ecrire « Erreur de saisie »
Class= « rien »
Fin si
Fin si
Fin si
Fin Tant que
Fin procédure
Feuille classe :
Ligne L
Colonne C
Procédure Choix_Matiere
Avec la feuille active
Ecrire « Entrer la matière »
Lire Mat
C  1
Tant que cel (1, C) <> Mat
C←C+1
Fin tant que
Fin procédure
Procédure Saisie_Note_Eleve
Avec la feuille active
Encore= « O »
Tant que Encore = « O »
Ecrire « Entrer le nom de l’élève »
Lire Nom
L  2
Tant que cellule (L, 1) <>nom
LL+1
Fin tant que
Appeler Controle_Note
Cel(L,C)  Note
Ecrire « Voulez-vous saisir une note pour un autre élève dans la même classe et pour la même matière ?
O/N»
Lire Encore
Fin tant que
Fin procédure
Procédure Saisie_Note_Classe
Avec la feuille active
L 2
Tant que cel(L, 1) = « »
Ecrire « Nom de l’élève : » & cel(L, 1)
Appeler Controle_Note
Cel(L,C)  Note
L  L+1
Fin tant que
Fin procédure
Procédure Controle_Note
Note  -1
Tant que note <0 ou note >20 ou note non_numérique
Ecrire « veuillez saisir une note comprise entre 0 et 20 »
Lire Note
Fin tant que
Fin procédure
Acquisition du numéro de colonne.
Acquisition du numéro de ligne


merci!