Soucis dans mon code

Bonjour,

Je suis débutante concernant la programmation, donc si j'ai fait des erreurs de "base". C'est normal...

Donc j'ai réalisé un code pour encoder des données dans une feuille, en sachant que celle-ci a déjà des données encodées.

Voici mon code:

Sub Driver()

Worksheets("Driver").Activate

Do

ActiveCell.FormulaR1C1 = Active.Offset(-1, 0).Value + 1
ActiveCell.Offset(0, 1).Select

Nom = InputBox("entrer le nom")
ActiveCell.FormulaR1C1 = Nom
ActiveCell.Offset(0, 1).Select

Prenom = InputBox("entrer le prénom")
ActiveCell.FormulaR1C1 = Prenom
ActiveCell.Offset(0, 1).Select

Dat = InputBox("Entrer la date d'anniversaire")
ActiveCell.FormulaR1C1 = Dat
ActiveCell.Offset(0, 1).Select

Email = InputBox("entrer l'adresse email")
ActiveCell.FormulaR1C1 = Email
ActiveCell.Offset(0, 1).Select

numérophone = InputBox("entrer le numéro de téléphone")
ActiveCell.FormulaR1C1 = numérophone
ActiveCell.Offset(0, 1).Select

numéropermis = InputBox("entrer le numéro de permis")
ActiveCell.FormulaR1C1 = numéropermis
ActiveCell.Offset(0, 1).Select

dateoflicense = InputBox("entrer la date d'obtention de la licence")
ActiveCell.FormulaR1C1 = dateoflicense
ActiveCell.Offset(0, 1).Select

Description = InputBox("description")
ActiveCell.FormulaR1C1 = Description
ActiveCell.Offset(0, 1).Select


Loop

End Sub

Le serveur me dit systématiquement erreur 424 objet requis. J'ai cherché mais je n'ai pas trouvé de solution par moi-même.

Si quelqu'un sait m'aider, ce serait vraiment top :)

sergeantv

EDIT: Ajout de la coloration syntaxique.