Sub suppression()
Sheets("Detail cout du risque").Activate
derniere_ligne = Range("G" & Rows.Count).End(xlUp).Row
With ThisWorkbook.Sheets("Detail cout du risque")
For i = derniere_ligne To 1 Step -1
If (Range("G" & i).Value <> 662830 And Range("G" & i).Value <> 662831 And Range("G" & i).Value <> 662832 And Range("G" & i).Value <> 662333 And Range("G" & i).Value <> 664100 And Range("G" & i).Value <> 681740 And Range("G" & i).Value <> 686200 And Range("G" & i).Value <> 686621 And Range("G" & i).Value <> 686622 And Range("G" & i).Value <> 686623 And Range("G" & i).Value <> 686624 And Range("G" & i).Value <> 686625 And Range("G" & i).Value <> 786620 And Range("G" & i).Value <> 786621 And Range("G" & i).Value <> 786622 And Range("G" & i).Value <> 786623 And Range("G" & i).Value <> 786624 And Range("G" & i).Value <> 786625) Then
.Rows(i).Select
Selection.Delete
End If
Next i
End With
End Sub
J'ai fait ça comme code, on m'a aidé le problème c'est que pour faire tourner ce code il me faut pas moins de 5 minutes... alors qu'il n'y a que 1900 lignes...