Comment créer une VBA sur excel 2007

Sub AlimCombo(n As Byte)
Dim F, tablo, d As Object, i As Long, x As String
F = Array("Services", "Textile", "Consommables bureau", "Consommables terrain", "Autres")
On Error Resume Next
Sheets(F(n)).Activate
If Err Then MsgBox "Vous avez modifié le nom de la feuille '" & F(n) & "' !!": Exit Sub
tablo = Application.Transpose(Range("A2", Range("A65536").End(xlUp)))
Set d = CreateObject("Scripting.dictionary") 'pour créer une collection sans doublons
For i = 1 To UBound(tablo)
 x = tablo(i)
 If Not d.exists(x) Then d.Add x, x
Next
ComboBox1.List = Application.Transpose(d.items) 'remplit la ComboBox
End Sub