Variable global et initialisation

Bonjour,
voila après beaucoup de recherche sur internet je ne trouve pas de réponse.
En fait, je voudrais déclarer une variable global et l'initialiser à une valeur afin de pouvoir utiliser dans l'ensemble de mon projet sa valeur.

J'ai découvert que nous pouvons faire cela pour une constante en déclarant la variable avec : Public const variable = 0.2

Mais voila mon problème est que dans mon cas ma variable est un objet d'une classe que j'ai créé.

Voici en gros ce que je voudrais mettre en Global afin de pouvoir utiliser cela partout dans mon projet. (Sachant que la valeur de ma variable est fixe)

Code:

---

1 2 3 4 5 6 7

Dim senior3 As New Catage With senior3 .Nom = Sheets("cat").Range("B17").Value .Nomc = Sheets("cat").Range("C17").Value .Numcat = Sheets("cat").Range("A17").Value .Anne = Sheets("cat").Range("D17").Value End With

---

Comment puis je faire cela ?

Merci pour vos réponses, bonne journée,

peut etre en la déclarant en tableau
dans un module

Code:

---

1 2 3 4 5 6 7 8

public CatAge(1 to 4) as variant sub initilise_catage() with sheets("cat") catage(1)=.Range("B17").Value catage(2)=.Range("C17").Value catage(3)=.Range("A17").Value catage(4)=.Range("D17").Value end with

---

enfin une idée je ne saisie pas bien la démarche de la déclaration

Bonsoir,
Il te suffirait de créer des procédures Property Get.