Aide sur Macro VBA

Sub Test()
Dim T_Plage
    T_Plage = Split(Worksheets("Synthèse").Range("A4").CurrentRegion.Address, "$")
    MsgBox "La derniere ligne est la ligne : " & CInt(T_Plage(4))
End Sub

Sub Test()
Dim Ws As Worksheet
Dim Plage As Range, Cel As Range
Dim DerLig As Integer
    For Each Ws In Worksheets
        DerLig = 0
        If Ws.Name <> "Feuil1" And Ws.Name <> "parametrage" And Ws.Name <> "Synthèse" Then
            Set Plage = Ws.Range(Ws.Range("A7"), Ws.Range("A7").End(xlDown)).Offset(, 1)
            For Each Cel In Plage
                If Application.CountA(Cel.Resize(, 13)) > 0 Then
                    DerLig = Cel.Row
                End If
            Next Cel
            If DerLig = 0 Then
                MsgBox "La plage " & Plage.Resize(, 13).Address(0, 0) & " de la feuille " & Ws.Name & " est vide."
            Else
                MsgBox "La derniere ligne de la feuille " & Ws.Name & " est la ligne " & DerLig
            End If
        End If
    Next Ws
End Sub