Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
For Each O In Worksheets 'boucle sur tous les onglets O du classeur
Select Case O.Name 'agit en fonction du nom de l'onglet O de la boucle
Case "JUL", "AOU", "SEP", "OCT", "NOV", "DEC" 'cas
'pour définir la dernière ligne il te faut adapter la colonne, ici j'ai mis A...
DL = O.Cells(Application.Rows.Count, "F").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
For I = DL To 1 Step -1 'boucle 1 : inversée sur toutes les lignes I de DL à 1
For J = 3 To 6 'boucle 2 : sur les colonne J de 3 à 6 (= C à F)
'si la valeur de la cellule de la boucle vaut "Résultat", supprime la ligne, sort de la boucle 2
If O.Cells(I, J).Value = "Résultat" Then O.Rows(I).Delete: Exit For
Next J 'prochaine colonne de la boucle 2
Next I 'prochaine ligne de la boucle
End Select 'fin de l'action en fontion de ...
Next O 'prochain onglet de la boucle
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub