Worksheets("").Activate

Bonjour à tous,

Voici en quelques mots mon problème
Pour des besoins perso, j'ai télécharger une base de données sur internet, mais cette base de données ne correspondait pas tout à fait à mes attentes, et j'ai voulu rajouter 2 onglets "société" et "fax" j'ai réussi à créer les boutons mais plus rien ne fonctionne dorénavant, lorsque je veux créer un contact, j'ai à chaque fois un nouveau message d'erreurs, vous l'aurez sans doute compris je ne comprends rien aux macros, VBA et autres...
Et là j'aurais besoin d'un petit coup de main SVP.

Voici ce qui apparaît :

Private Sub cmdAjouter_Click()
Dim numLigneVide As Integer
'On active la feuille "Liste"
Worksheets("").Activate
'On trouve la dernière ligne vide du tableau et on enregistre le numéro de la ligne dans la variable numLigneVide
numLigneVide = ActiveSheet.Columns(1).Find("").Row
'On vérifie que les champs obligatoires sont correctement remplis
If txtNom.Text = "" Then
MsgBox "Veuillez remplir le nom de votre contact", vbCritical, "Champs manquant"
txtNom.SetFocus
ElseIf txtPrenom.Text = "" Then
MsgBox "Veuillez remplir le prénom de votre contact", vbCritical, "Champs manquant"
txtPrenom.SetFocus
Else
'On remplit les données dans notre tableau
ActiveSheet.Cells(numLigneVide, 1) = UCase(txtSociete.Text)
ActiveSheet.Cells(numLigneVide, 2) = txtNom.Text
ActiveSheet.Cells(numLigneVide, 3) = txtPrenom.Text
ActiveSheet.Cells(numLigneVide, 4) = txtAdresse.Text
ActiveSheet.Cells(numLigneVide, 5) = txtCP.Text
ActiveSheet.Cells(numLigneVide, 6) = txtVille.Text
ActiveSheet.Cells(numLigneVide, 7) = txtEmail.Text
ActiveSheet.Cells(numLigneVide, 8) = txtTelFixe.Text
ActiveSheet.Cells(numLigneVide, 9) = txtFax.Text
ActiveSheet.Cells(numLigneVide, 10) = txtTelPortable.Text
'On efface le formulaire et on replace le curseur sur le premier champs (Nom)
txtSociete.Text = ""
txtNom.Text = ""
txtPrenom.Text = ""
txtAdresse.Text = ""
txtCP.Text = ""
txtVille.Text = ""
txtEmail.Text = ""
txtTelFixe.Text = ""
txtTelFax.Text = ""
txtTelPortable.Text = ""
txtNom.SetFocus
End If
End Sub

Private Sub cmdFermer_Click()
frmNouveau.Hide
End Sub

Private Sub lblAdresse_Click()

End Sub