Public Function Numer(Cellule As Range)
Dim N As String 'déclare la variable N (Numéro)
If Cellule.Cells.Count > 1 Then MsgBox "Vous ne pouvez séletionner qu'une seule cellule !": Exit Function
For I = 1 To Len(Cellule.Value) 'boucle sur tous les caractères de Cellule
'si le caractère est numérique, redéfinit la variable N
If IsNumeric(Mid(Cellule.Value, I, 1)) = True Then N = N & CStr(Mid(Cellule.Value, I, 1))
Next I 'prochain caractère de Cellule
Numer = N 'renvoie N
End Function