Nb de ligne d'une feuille masquée.

Option Explicit
'------------------------
Sub compter_cacher()
With Sheets(2) 'feuille cachée
MsgBox .Cells.Find(what:="*", searchdirection:=xlPrevious).Row
End With
End Sub

Sub Recup_Photos()
' Récupération des photos du palmares.

' Bloquage du rafraichissement et des alarmes.
    Application.ScreenUpdating = False              ' Bloque le rafraichissement de l'écran.
    Application.EnableEvents = False                ' Arret de la scrutation.
    Application.DisplayAlerts = False               ' Bloque les messages Excel.

Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long
Dim Rep_Depart, Rep_Arrivee, nom, Nvx_Nom As String
Dim DernLigne As Long

Nvx_Nom = "Diapo" ' 1ère partie du nouveau nom.

' Affichage feuille Palmares.
    Sheets("Palmares").Visible = True
    Sheets("Palmares").Select

DernLigne = Range("A65536").End(xlUp).Row
    Set FL1 = Worksheets("Palmares")
    NoCol = 10                                      ' Lecture de la colonne 10.
    For NoLig = 2 To DernLigne
        Rep_Depart = FL1.Cells(NoLig, NoCol)        ' Répertoire d'origine.
        nom = FL1.Cells(NoLig, NoCol + 1)           ' Fichier à copier.
        Rep_Arrivee = FL1.Cells(NoLig, NoCol + 2)   ' Répertoire d'arrivée.
        FileCopy Rep_Depart & "\" & nom, Rep_Arrivee & "\" & Nvx_Nom & NoLig - 1 & "B.jpg"
    Next
    Set FL1 = Nothing

    ActiveWindow.SelectedSheets.Visible = False     ' Masquage la feuille palmares.

' Rétablissement du rafraichissement et des alarmes.
    Application.ScreenUpdating = True               ' Active le rafraichissement de l'écran.
    Application.EnableEvents = True                 ' Active de la scrutation.
    Application.DisplayAlerts = True                ' Active les messages Excel.

    MsgBox "Récupération des photos terminées."

End Sub