Function Arobas(ByVal Source As String, ParamArray Groupes()) As String
Dim N&, Groupe As String, Rés As String, Q&, P&
Arobas = ""
For N = 0 To UBound(Groupes)
Groupe = Groupes(N): Rés = Source
For Q = 1 To Len(Groupe)
P = InStr(Rés, Mid$(Groupe, Q, 1))
If P = 0 Then Exit For
Rés = Left$(Rés, P - 1) & Mid$(Rés, P + 1): Next Q
If Q > Len(Groupe) Then
Arobas = Arobas & "@" & N + 1: Source = Rés: End If: Next N
Arobas = Arobas & Source
End Function