Ligne vide

Option Explicit

Public Sub test()
    Dim Fin                As Integer
    Dim vrtSheet    As Variant
   
    For Each vrtSheet In ActiveWorkbook.Sheets
            With ActiveWorkbook
                    .Sheets(vrtSheet.Name).Activate
                        Fin = Sheets(vrtSheet.Name).Range('A1').End(xlUp).Row + 1
            End With
            If Fin < 50 Then
                    Call Macro1
            Else
                    Call Macro2
            End If
    Next
End Sub

Cliquez pour agrandir...

Public Sub test()
Dim x As Byte 'déclare la variable x
Dim Fin As Integer 'déclare la variable Fin

Application.ScreenUpdating = False 'empêche la visualisation des changements d'onglets

For x = 1 To Sheets.Count 'boucle sur tous les onglets
With Sheets(x)
Fin = .Range('A1').End(xlUp).Row + 1 'définit la variable Fin
If Fin < 50 Then 'si Fin < 50
Call Macro1 'Macro1
Else 'sinon
Call Macro2 'Macro2
End If 'fin de la condition
End With
Next x 'prochain onglet

Application.ScreenUpdating = True 'permet la visualisation des changements d'onglets

End Sub

Cliquez pour agrandir...