Sub DefautMail()
With Sheets(1)
For i = 1 To 10
If Not Cells(i, 1).Value Like "*@*" Then
Cells(i, 2) = "Pas d'Adresse Email"
Sheets("Défaut EMail").Range("A65000").End(xlUp).Offset(1, 0) = Cells(i, 1)
End If
Next
End With
Sheets("Défaut EMail").Activate
ActiveSheet.UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
End Sub