Function Alpha_Num(Target As Range, Optional Quoi As Boolean)
Dim i As Integer, Chaine As String, Extract As String
Dim Alpha As String, Nume As String
Chaine = Target.Text
For i = 1 To Len(Chaine)
Extract = Mid(Chaine, i, 1)
If IsNumeric(Extract) Then
Nume = Nume & Extract
Else
Alpha = Alpha & Extract
End If
Next
Alpha_Num = IIf(Quoi = True, Alpha, Nume)
End Function