Sub test()
Dim Cell As Range
Dim R As Range
i = 1
Sheets("Feuil1").Select
myrow = 1
Set R = ActiveSheet.UsedRange
'trouve @
For Each Cell In R
valeur = Cell.Value
MyPos = InStr(valeur, "@")
If MyPos <> 0 Then
Sheets("Feuil2").Select 'ecrit dans la feuil2
'myrow = Range("A1:A" & Range("A65536").End(xlUp).Row).Count
Range("A" & myrow).Select
ActiveCell.Value = valeur
myrow = myrow + 1
Sheets("Feuil2").Select
End If
Next
'trouve TEL
Sheets("Feuil1").Select
myrow = 1
Set R = ActiveSheet.UsedRange
For Each Cell In R
valeur = Cell.Value
MyPos = InStr(valeur, "TEL")
If MyPos <> 0 Then
Sheets("Feuil2").Select 'ecrit dans la feuil2
'myrow = Range("A1:A" & Range("A65536").End(xlUp).Row).Count
Range("B" & myrow).Select
ActiveCell.Value = valeur
myrow = myrow + 1
Sheets("Feuil2").Select
End If
Next
End Sub