Voila le message d'erreur :
Run-time Error '5' :
invalid procedure call or argument
l'erreur se situe dans la routine CreationFeuille
Sub CreationFeuille(nom As String)
Dim Age As String
Dim Num As String
Age = Left(nom, InStr(1, nom, "(", vbBinaryCompare) - 1) --> ici