RE
Tu devrais joindre aussi ton fichier contenant le userform.
On y verrait plus clair.
Merci
Sub anomymise()
Application.ScreenUpdating = False
Dim Ws As Worksheet
Dim c As Range
Dim x As String
Dim y As String
Dim z As String
For Each Ws In Worksheets
For Each c In Ws.UsedRange
If c Like "*@*" Then
Randomize
x = Chr(65 + (Rnd * 22))
y = Chr(Asc(x) + 1)
z = Chr(Asc(y) + 3)
c.Value = LCase(x & y & z & ".toto" & x & "@excel.fr")
End If
Next
Next
Application.ScreenUpdating = True
End Sub