Sub ou Function non définie

J'ai une erreur de compilation avec le message suivant Sub ou Function non définie.

J'ai cherché un peu sur les forums et je comprends pas bien mon erreur. Quelqu'un pourrait me l'expliquer svp.

En vous remerciant par avance pour vos réponses.

Option Base 1
Sub ExTab4()

Dim Tab4 As Variant
Dim NbLg As Integer
Dim NbCol As Integer

ReDim Tab4(5 To 23, 3 To 11)
NbLg = Ubond(Tab4, 1) - LBound(Tab4, 1) + 1
NbCol = Ubond(Tab4, 2) - LBound(Tab4, 2) + 1

End Sub

Je rencontre exactement le même problème avec le code suivant

Sub ProcNomPrénom(Nom As String, Prénom As String)
MsgBox "Je m'appelle " & Prénom & " " & Nom
End Sub

Sub ProcAge(age As Integer)
MsgBox "J'ai " & age & " ans "
End Sub

Sub ProcMain()
SP_NomPrénom "Ginioux", "Renaud"
Call SP_age(22)
End Sub

Bonjour,

Q1 > "Ubond" : n'existe pas : c'est Ubound

Q2 > remplacez Proc par SP_ ou vice versa...

Option Base 1 n'est pas obligatoire. Option Explicit non plus : Mais vivement recommandé et couramment admises par la communauté des développeurs.

Vous devez l'utiliser.

... et n'utilisez pas de caractères accentués dans vos macros !

A+

Merci beaucoup pour votre réponse