Re,
Etant donné que ma macro ne sera appliquée et sans risque d'effacer l'entete que dans les deux feuilles "MPCA" et "Prelevement",
j'ai essayé de rajouter ce code :
'Supprimer les lignes qui ne contiennent pas de prvts dans la feuille Prelevements
Do
Set Cel = Worksheets("Prelevements").Cells.Find(What:="NON", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False)
If Cel Is Nothing Then
Exit Do
Else
Rows(Cel.Row).Delete
End If
Loop
'Supprimer les lignes qui ne contiennent pas de prvts dans la feuille MPCA
Do
Set Cel = Worksheets("MPCA").Cells.Find(What:="NON", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False)
If Cel Is Nothing Then
Exit Do
Else
Rows(Cel.Row).Delete
End If
Loop
Mais ça ne marche pas ça beug, et quand je met juste la moitié à savoir pour la feuille Prelevements ou MPCA ça ne marche que quand je suis sur la feuille en question.
est ce qu'il faut que je modifie quelque chose?