VBA Excel : base de donnée courrier

Bonjour,

Je voudrais créer une base de donnée de courriers recommandés pour le boulot.

J'ai fait un tableau excel qui ressemble à ça
http://img11.hostingpics.net/pics/937530Capturedcran20120802194617.png


En bas, une partie fixe où l'on rempli les données qui iront s'insérer dans le tableau du dessus en cliquant sur le bouton.

Je voudrait que les cellules de la partie du haut ne soient rentrées que par le formulaires du bas.
J'ai mis le formulaire à partir de la ligne 3000 et j'ai fractionné les fenêtres. Je suis en train de pécher sur le gestionnaire d'erreur. En cliquant sur le bouton, les données saisie vont se rajouter sous la dernière ligne du tableau écrite. Sauf que, je voudrais bloquer le processus si les cellules B30001, B3003 et B3004 sont vides et obliger l'utilisateur à les compléter pour valider la saisie.

Il y a peur être mieux comme méthode pour enregistrer ces données. Je suis preneur de tout conseils.

Pour info, voici la macro que j'ai affectée au bouton (et que je n'ai pas fini du coup vu que je pèche lol)

Sub Macro2()

On Error GoTo ErreurNum
On Error GoTo ErreurDateEnvoi
On Error GoTo ErreurObjet

Dim numero As Long
Dim objet As String
Dim dateEnvoi As Date
Dim dateNotif As Date

    'Copie des données du formulaire situé en bas
    Range("B3001:B3006").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    'gestionnaire d'erreur
    numero = Range("B3001")
    objet = Range("B3003")
    dateEnvoi = Range("B3004")
    dateNotif = Range("B3005")
    
    If numero = "" Then
    GoTo ErreurNum
    
    End If
    
ErreurNum = MsgBox("Saisir un numéro pour continuer")
ErreurDateEnvoi = MsgBox("Saisir une date d'envoi pour continuer")
ErreurObjet = MsgBox("Saisir un objet pour continuer")

Exit Sub
    
    
    'Test pour determiner la ligne où coller les infos dans le Tableau'
Sheets("Base de données").Select
valeurA2 = Range("A2")
If valeurA2 = "" Then
Range("A2").Select
Else
Range("B2999").Select
Selection.End(xlUp).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base + 1).Select
End If

'Memorise le N° de la ligne où coller les données'
ligne_de_base = ActiveCell.Row
    

'Collage avec transposition
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True
        
        
'Rendre vierge le formulaire'
Range("B3001:B3006").Select
Selection.ClearContents
Range("B3002").Select
ActiveCell.FormulaR1C1 = "BLABLA"
'Range("B3001").Select
End Sub

En vous remerciant grandement pour l'aide que vous pourrez m'apporter.