Appel macro dans une boucle

 Dim I As Integer
   Dim j As Integer
Dim Retour As Integer
Dim WS_Count As Integer
         
         
     Retour = MsgBox("Voulez vous supprimer toute les lignes SPE", vbYesNo + vbCritical, "Attention")
     If Retour = vbYes Then
     
     
         WS_Count = ActiveWorkbook.Worksheets.Count
         For j = 5 To (WS_Count - 2) Step 2
         
         
          For I = 5 To Range("D65536").End(xlUp).Row
          [COLOR=red]ActiveWorkbook.Worksheets(j).Cells(I, 3).EntireRow.Hidden = False[/COLOR]
      If ActiveWorkbook.Worksheets(j).Cells(I, 3).Value = "SPE" Then
      ActiveWorkbook.Worksheets(j).Cells(I, 3).EntireRow.Delete
      I = I - 1
      End If
            Next I
   Next j
     Else
           Exit Sub
     End If
   
End Sub