Boucle sur plusieurs feuilles

For Each ws In wbOutil
        If ws.Name <> "composants" Then
[COLOR="Red"]ws.activate[/COLOR]            
Call DeleteEmptyRows
        End If
Next

Sub DeleteEmptyRows()
    ' désactiver le rafraîchissement de l'écran pour accélérer le traitement
    Application.ScreenUpdating = False
    ' désactiver les alertes pour empêcher l'affichage des messages…
    Application.DisplayAlerts = False
[COLOR="red"]activesheet.range("A65536").select 'Vérifie que tu es bien tout en bas des lignes à supprimer[/COLOR]    
Do
        If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
        End If
        ActiveCell.Offset(-1, 0).Select
    Loop Until ActiveCell.Row = 6
    Exit Sub

For Each ws In wbOutil
        If ws.Name <> "composants" Then
[COLOR="Red"]ws.activate[/COLOR]            
Call DeleteEmptyRows
        End If
Next

Sub DeleteEmptyRows()
    ' désactiver le rafraîchissement de l'écran pour accélérer le traitement
    Application.ScreenUpdating = False
    ' désactiver les alertes pour empêcher l'affichage des messages…
    Application.DisplayAlerts = False
[COLOR="red"]activesheet.range([COLOR="SeaGreen"]"C" & ligFin[/COLOR]).select 'Vérifie que tu es bien tout en bas des lignes à supprimer[/COLOR]    
Do
        If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
        End If
        ActiveCell.Offset(-1, 0).Select
    Loop Until ActiveCell.Row = 6
    Exit Sub

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name <> "composants" Then
        Call DeleteEmptyRows(ws.Name)
    End If
Next ws
End Sub


Sub DeleteEmptyRows(nomfeuille As String)
Dim i As Integer
'pour traiter colonne A
For i = Sheets(nomfeuille).Range("A65536").End(xlUp).Row To 6 Step -1
    If IsEmpty(Cells(i, 1).Value) Then Rows(i).Delete
Next i
End Sub