merci je me douté que je mettez mal exprimé, merci quand meme d'avoir pris le temps de me répondre,
cependant j'ai trouvé la solution et ça marche pas mal je te met le code en espérant que tu comprennes mieux ce que j'avais demander
Workbooks.OpenText FileName:="SGSN.txt", _
DataType:=xlDelimited, Space:=True, other:=True, OtherChar:="-"
Worksheets("SGSN").Range("B:AF").Delete Shift:=xlShiftToLeft
Worksheets("SGSN").Range("C:G").Delete Shift:=xlShiftToLeft
c = 1
For i = 1 To 60000
If ActiveSheet.Cells(c, 1) <> "AUBAGNE21" And ActiveSheet.Cells(c, 1) <> "BRON21" And ActiveSheet.Cells(c, 1) <> "MITRY21" And ActiveSheet.Cells(c, 1) <> "TRAPPES22" And ActiveSheet.Cells(c, 1) <> "VALENTON21" And ActiveSheet.Cells(c, 1) <> "VALENTON22" And ActiveSheet.Cells(c, 1) <> "CORBAS12" And ActiveSheet.Cells(c, 1) <> "TRAPPES21" And ActiveSheet.Cells(c, 1) <> "VITROLLES11" And ActiveSheet.Cells(c, 2) = "" Then
Rows(c).Select
Selection.Delete Shift:=xlUp
t = t + 1
If t = 800 Then Exit For
Else
t = 1
c = c + 1
suite:
End If
Index = Index + 1
Next i