Recuperer les données d'un formulaire dans un tableau

Bonjour ozone. J'ai reussi à trouver une réponse à mon problème :

Private Sub valider_Click()

'--------------------- Lieu d'envoi ------------------------

'On va chercher la premiere ligne vide pour l'ajouter à la suite de la base de donnée
NLign = Sheets("Entreprises").Range("A1").End(xlDown).Row + 1

If IsError(Sheets("Entreprises").Range("A1").End(xlDown).Row) Then
NLign = 2
Else
NLign = Sheets("Entreprises").Range("A1").End(xlDown).Row + 1
End If

'---------- VERIFICATION DES DONNEES + TRANSFERT -----------

'On oblige l'utilisateur à renseigner ces donnees (nom, adresse, numero de tel)
If Len(Nom) = 0 Then
MsgBox ("Vous devez entrer le nom de l'entreprise")
Cancel = True
Exit Sub
End If
If Len(Tel) = 0 Then
MsgBox ("Vous devez entrer le numéro de l'entreprise")
Cancel = True
Exit Sub
End If
If Len(Adresse) = 0 Then
MsgBox ("Vous devez entrer l'adresse de l'entreprise")
Cancel = True
Exit Sub
End If

'verifie que le numero est bien un numero puis lance la copie
If IsNumeric(Tel.Value) And (IsNumeric(FaxTxt.Value) Or IsEmpty(FaxTxt.Value)) Then 'SI valeur numérique ...

'Transfert des donnees dans la base
Sheets("Entreprises").Cells(NLign, 1) = Nom
Sheets("Entreprises").Cells(NLign, 2) = Adresse
Sheets("Entreprises").Cells(NLign, 4) = FaxTxt
Sheets("Entreprises").Cells(NLign, 3) = Tel

'mise en forme des cellule copiées
Dim i As Integer
i = 1

While i < 5
Cells(NLign, i).HorizontalAlignment = xlCenter
Cells(NLign, i).VerticalAlignment = xlCenter
Cells(NLign, i).Borders.Value = 1
Cells(NLign, i).WrapText = True
i = i + 1
Wend

'Trier la base de donnee
Macro3

'fermeture du formulaire
Unload Me

'affiche un message de confirmation
MsgBox "L'entreprise a bien été ajouté à la base de donnée Entreprises."

Else 'SINON ...
MsgBox "Valeur incorrecte"
End If

End Sub


Merci pour votre réponse rapide.