Je semble avoir égaré quelque peu VBA et ça semble réciproque...

Je reçois systématiquement le message "membre de méthode ou de données introuvables".

Voici le code et l'élément pour lequel je reçois une erreur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub age()
'
' age Macro
'
' Touche de raccourci du clavier: Ctrl+g
'
effacement
Dim datenais As Date
Cells(1, 1) = "Nom"
Cells(1, 2) = "Date naissance"
Cells(1, 3) = "Age"
Cells(1, 4) = "Status"
Cells(1, 5) = "Genre"
n = InputBox("Pour combien de personnes désirez-vous calculer l'âge ?")
For i = 2 To 5
Userformage.Show
    Cells(i, 1) = Userformage.Nom.Text
    datenais = Userformage.datenais.Text
    Cells(i, 2) = datenais
    Cells(i, 5) = Userformage.Genre.Text
    Cells(i, 3) = fctage(datenais)
    Select Case Cells(i, 3)
    Case Is > 65
        Cells(i, 4) = "Pensionné"
        c = c + 1
        a = a + Cells(i + 3)
    Case 2 To 18
        Cells(i, 4) = "A l'école"
    Case Else
        Cells(i, 4) = "En activité"
    End Select
    If Max = 0 Or Cells(i, 3) > Max Then
        Max = Cells(i, 3)
    End If
    If Min = 0 Or Cells(i, 3) < Min Then
        Min = Cells(i, 3)
        nommin = Cells(1, 1)
    End If
Unload Userformage
Next i
adjust

End Sub

J'ai beau chercher sur les forums, je ne parviens pas à trouver d'où vient mon erreur. Est-ce que quelqu'un pourrait m'aider à y voir plus clair s'il vous plaît ? Merci