Dernière ligne non vide entre plusieurs feuilles

Bonjour,

Je souhaiterais savoir si il est possible de connaitre le numéro de la dernière ligne non vide le plus élevée dans la colonne A dans un ensemble de feuilles, la formule ci dessous marche très bien mais pour une feuille bien précise:

Sub ligne()

Dim x As Long

x = Worksheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row

MsgBox x

End Sub

Pour mieux me faire comprendre je souhaiterais (en gros car je sais que ça ne marche pas) une formules qui ressemblerais à ça

Sub ligne()

Dim x As Long

x = Worksheets("A:X").Range("A" & Rows.Count).End(xlUp).Row

MsgBox x

End Sub

Donc le numéro de ligne non vide le plus élevé dans la colonne A dans les feuilles de A à X

Merci d'avance

Bonjour,

Tu peux tester la macro suivante :

Sub MaxDerLigne()
    Dim ws As Worksheet
    Dim MaxFeuille As Worksheet
    Dim x As Long

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Range("A" & Rows.Count).End(xlUp).Row > MaxRowCount Then
            x = ws.Range("A" & Rows.Count).End(xlUp).Row
            MaxRowCount = ws.Range("A" & Rows.Count).End(xlUp).Row
            Set MaxFeuille = ws
        End If
    Next ws
    MsgBox x & " dans la Feuille " & MaxFeuille.Name
End Sub

En espèrant que cela t'aide

Je suis impressionné par la rapidité de ta réponse!

Ta macro marche parfaitement, par contre je ne pensais pas qu'elle serait si longue et je ne sais pas si c'est adaptable a ma macro actuel.

Pour tout te dire le but est de rendre une plage de recherche variable pour ne pas faire mouliner la macro inutilement, ma plage est de A2:X(dernière ligne non vide ), le nombre de ligne non vide sera toujours sensiblement le même sur les différentes feuilles, c'est pour ça que la valeur qui m'intéresse est le numéro le plus élevé.

cdt