Dim r(12)
 Dim a
 For i = 1 To 12
   r(i) = 0
   Sheets.Add
 Next
    Sheets("Feuil1").Select
    Sheets("Feuil1").Name = "Radar 30 KMh"
    Sheets("Feuil2").Select
    Sheets("Feuil2").Name = "Radar 40 KMh"
    Sheets("Feuil3").Select
    Sheets("Feuil3").Name = "Radar 50 KMh"
    Sheets("Feuil4").Select
    Sheets("Feuil4").Name = "Radar 60 KMh"
    Sheets("Feuil5").Select
    Sheets("Feuil5").Name = "Radar 70 KMh"
    Sheets("Feuil6").Select
    Sheets("Feuil6").Name = "Radar 80 KMh"
    Sheets("Feuil7").Select
    Sheets("Feuil7").Name = "Radar 90 KMh"
     Sheets("Feuil8").Select
    Sheets("Feuil8").Name = "Radar 100 KMh"
     Sheets("Feuil9").Select
    Sheets("Feuil9").Name = "Radar 110 KMh"
     Sheets("Feuil10").Select
    Sheets("Feuil10").Name = "Radar 120 KMh"
     Sheets("Feuil11").Select
    Sheets("Feuil11").Name = "Radar 130 KMh"
    Sheets("Feuil12").Select
    Sheets("Feuil12").Name = "Radar inconnu"
     Sheets("RFR").Select
For i = 1 To [CountA(A1:A65536)]
 Sheets("RFR").Select
  a = InStr(Cells(i, 3), "@")
  b = Mid(Cells(i, 3), a + 1, 3)
  c1 = Cells(i, 1)
  c2 = Cells(i, 2)
  Select Case b
   Case "30"
   Sheets("Radar 30 KMh").Select
   r(1) = r(1) + 1
   Cells(r(1), 1) = c1
   Cells(r(1), 2) = c2
   Cells(r(1), 3) = "Radar Vitesse Maxi 30 KM/H"
   Case "40"
   Sheets("Radar 40 KMh").Select
   r(2) = r(2) + 1
   Cells(r(2), 1) = c1
   Cells(r(2), 2) = c2
   Cells(r(2), 3) = "Radar Vitesse Maxi 40 KM/H"
   Case "50"
   Sheets("Radar 50 KMh").Select
   r(3) = r(3) + 1
   Cells(r(3), 1) = c1
   Cells(r(3), 2) = c2
   Cells(r(3), 3) = "Radar Vitesse Maxi 50 KM/H"
   Case "60"
   Sheets("Radar 60 KMh").Select
   r(4) = r(4) + 1
   Cells(r(4), 1) = c1
   Cells(r(4), 2) = c2
   Cells(r(4), 3) = "Radar Vitesse Maxi 60 KM/H"
   Case "70"
   Sheets("Radar 70 KMh").Select
   r(5) = r(5) + 1
   Cells(r(5), 1) = c1
   Cells(r(5), 2) = c2
   Cells(r(5), 3) = "Radar Vitesse Maxi 70 KM/H"
   Case "80"
   Sheets("Radar 80 KMh").Select
   r(6) = r(6) + 1
   Cells(r(6), 1) = c1
   Cells(r(6), 2) = c2
   Cells(r(6), 3) = "Radar Vitesse Maxi 80 KM/H"
   Case "90"
   Sheets("Radar 90 KMh").Select
   r(7) = r(7) + 1
   Cells(r(7), 1) = c1
   Cells(r(7), 2) = c2
   Cells(r(7), 3) = "Radar Vitesse Maxi 90 KM/H"
   Case "100"
   Sheets("Radar 100 KMh").Select
   r(8) = r(8) + 1
   Cells(r(8), 1) = c1
   Cells(r(8), 2) = c2
   Cells(r(8), 3) = "Radar Vitesse Maxi 100 KM/H"
   Case "110"
   Sheets("Radar 110 KMh").Select
   r(9) = r(9) + 1
   Cells(r(9), 1) = c1
   Cells(r(9), 2) = c2
   Cells(r(9), 3) = "Radar Vitesse Maxi 110 KM/H"
   Case "120"
   Sheets("Radar 120 KMh").Select
   r(10) = r(10) + 1
   Cells(r(10), 1) = c1
   Cells(r(10), 2) = c2
   Cells(r(10), 3) = "Radar Vitesse Maxi 120 KM/H"
   Case "130"
   Sheets("Radar 130 KMh").Select
   r(11) = r(11) + 1
   Cells(r(11), 1) = c1
   Cells(r(11), 2) = c2
   Cells(r(11), 3) = "Radar Vitesse Maxi 130 KM/H"
  Case Else
   Sheets("Radar inconnu").Select
   r(12) = r(12) + 1
   Cells(r(12), 1) = c1
   Cells(r(12), 2) = c2
   Cells(r(12), 3) = "Radar Vitesse Iconnu"
  End Select
Next
sav = Mid(ActiveWorkbook.FullName, 1, Len(ActiveWorkbook.FullName) - 7)
Sheets("Radar 30 KMh").Select
ActiveWorkbook.SaveAs Filename:= _
sav & "RadarF 30 KMh.csv", FileFormat:=xlCSV, _
CreateBackup:=False
Sheets("Radar 40 KMh").Select
ActiveWorkbook.SaveAs Filename:= _
sav & "RadarF 40 KMh.csv", FileFormat:=xlCSV, _
CreateBackup:=False
Sheets("Radar 50 KMh").Select
ActiveWorkbook.SaveAs Filename:= _
sav & "RadarF 50 KMh.csv", FileFormat:=xlCSV, _
CreateBackup:=False
Sheets("Radar 60 KMh").Select
ActiveWorkbook.SaveAs Filename:= _
sav & "RadarF 60 KMh.csv", FileFormat:=xlCSV, _
CreateBackup:=False
Sheets("Radar 70 KMh").Select
ActiveWorkbook.SaveAs Filename:= _
sav & "RadarF 70 KMh.csv", FileFormat:=xlCSV, _
CreateBackup:=False
Sheets("Radar 80 KMh").Select
ActiveWorkbook.SaveAs Filename:= _
sav & "RadarF 80 KMh.csv", FileFormat:=xlCSV, _
CreateBackup:=False
Sheets("Radar 90 KMh").Select
ActiveWorkbook.SaveAs Filename:= _
sav & "RadarF 90 KMh.csv", FileFormat:=xlCSV, _
CreateBackup:=False
Sheets("Radar 100 KMh").Select
ActiveWorkbook.SaveAs Filename:= _
sav & "RadarF 100 KMh.csv", FileFormat:=xlCSV, _
CreateBackup:=False
Sheets("Radar 110 KMh").Select
ActiveWorkbook.SaveAs Filename:= _
sav & "RadarF 110 KMh.csv", FileFormat:=xlCSV, _
CreateBackup:=False
Sheets("Radar 120 KMh").Select
ActiveWorkbook.SaveAs Filename:= _
sav & "RadarF 120 KMh.csv", FileFormat:=xlCSV, _
CreateBackup:=False
Sheets("Radar 130 KMh").Select
ActiveWorkbook.SaveAs Filename:= _
sav & "RadarF 130 KMh.csv", FileFormat:=xlCSV, _
CreateBackup:=False
Sheets("Radar inconnu").Select
ActiveWorkbook.SaveAs Filename:= _
sav & "RadarF inconnu.csv", FileFormat:=xlCSV, _
CreateBackup:=False