Sub pretest()
Range("A1:A20") = "=""100""+ROW()&CHOOSE(MOD(ROW(),2)+1,"" ( GONCALVES PERREIRA CELINE) "",""( DUPONT CHRISTOPHE ) "")&""1000""-ROW()"
Range("A1:A20") = Range("A1:A20").value
End Sub
Sub Remanier()
Dim cel As Range, Rng As Range, pr$, no$
Set Rng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(3))
For Each cel In Rng
x = INVERSEMOT(cel.text)
pr = Split(x)(0) & "."
no = Replace(VBA.Trim(Mid(x, Len(pr), 9 ^ 9)), " ", "-")
cel.Offset(, 1) = pr & no & "@test.fr"
Next
End Sub
Function INVERSEMOT(Mot$) As String
Dim x, a$, b$
a = Split(Split(Mot, ")")(0), "(")(1): b = StrReverse(a)
For Each x In Split(b)
INVERSEMOT = LCase(Trim(INVERSEMOT & " " & StrReverse(x)))
Next
End Function