Bonjour,
d'abord je te remercie pour ta réponse.
a vrai dire dans ton code il me fait pas tout au juste, j'ai décidé de garder mon code mais il y'a un seule bout de code qui ne marche pas a 100% c'est la partie 2 et 3
'2-gorigine traçon = garder que les cellules qui commance par 87
ActiveSheet.Range("$A$1:$O$217").AutoFilter Field:=7, Criteria1:=Array( _
"71 | ", _
"80 | ", _
"88 | "), Operator:=xlFilterValues
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
Selection.AutoFilter
'3- destination trançon = garder que les cellules qui commance par 87
ActiveSheet.Range("$A$1:$O$205").AutoFilter Field:=9, Criteria1:=Array( _
"80 | ", _
"88 | ", _
"88 | "), Operator:=xlFilterValues
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
Selection.AutoFilter
dans ce code je veux qu'il me supprime toutes les lignes où les cellules ne commencent pas par 87. en gros je veux garder que les lignes qui commence par 87. si tu peux me régler ce problème, ça serai vraiment très gentil. je pense a mettre des IF mais je n'y arrive pas. merci d'avance