Microsoft 365 [RESOLU] Gestion en masse de fichiers JPG selon sélection sur un tableur

Sub PhotosRalph()
'https://excel-downloads.com/threads/vba-gestion-en-masse-de-fichiers-jpg-selon-selection-sur-un-tableur.20085349/

    Dim ws As Worksheet
    Dim i As Long
    Dim MonFichier As String, MonChemin As String, DossierCible As String
   
    Set ws = ThisWorkbook.Sheets("SELECTION") '  <<<==== A' adapter
   
    DossierCible = "C:\Users\...\Documents\_Photos_Spectacles_2024\_Poubelle\" ' <<<==== A' adapter
   
    For i = 2 To ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
       
        If ws.Cells(i, 5).Value = "Non" Then
           
            MonFichier = ws.Cells(i, 1).Value
            MonChemin = ws.Cells(i, 3).Value & "\" & MonFichier
           
            If Dir(MonChemin) <> "" Then ' Si le fichier existe
                Name MonChemin As DossierCible & MonFichier
            End If
        End If
    Next i
End Sub