Forcer à mettre en Majuscule de A2 à A300 pour un néophite

Bonjour,

Je suis completement néophite en matière de Macro et je souhaiterais forcer la saisie en majuscule dans une zone de texte (A2:A300).
En lisant les différents messages du forum sur ce sujet, j'en ai compris qu'il fallais créer un macro pour cela : ex :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:A300")) Is Nothing Then
Target = UCase(Target)
End If
End Sub

Est-ce bon ?

Mais le problème, c'est que je ne sais pas l'insérer !!

Voici les chose ce que j'ai éssayé et sans résultat :
1)
- alt+f11
- Insertion Module
- Coller la formule dans le corps du Module
- Puis tout refermer
>> Rien ne se passe

2)
- Dans excel, Outils>Macro>Nouvelle Macro>nomer la macro "Majuscule"> OK
- Dans excel, Outils>Macro>Macros...>selection "majuscule">Pas à Pas détaillé
>> et la souvre Microsoft Visual Editeur avec comme texte :
Sub Majuscule()
'
' Majuscule Macro
' Macro enregistrée le 12/05/2011 par Sylvain
'

'
ActiveCell.Offset(-3, 10).Range("A1").Select
End Sub

>> où dois-je coller ma formule ?
- j'ai essayé d'effacer ce texte pour y mettre ma formule
- j'ai tout fermé
- puis terminer l'enregistrement
>> et rien ne ce passe.

JE PENSE QUE JE DOIS ETRE COMPLEMENT A COTE DE LA PLAQUE ET FAIRE TOUT FAUX, aidez-moi SVP je suis perdu.

Merci d'avance