Sub Base_Transfert_Nom_Image()
'Copie nom pochette dans Colonne "Pochette en face des Titres respectifs
Application.ScreenUpdating = False
Dim i As Long
Dim TexteCombi As String
Dim NbLigne As Long, NumLigne1 As Long, NumLigne2 As Long, Boucle As Long
Sheets("Contenu de répertoire").Select
TexteCombi = Application.InputBox(prompt:="Entrez le numéro de la ligne des Titres pour le transfert des Pochettes ")
For i = 1 To Range("B65536").End(xlUp).Row
If Range("A" & i) = TexteCombi Then
NumLigne1 = i + 1
NumLigne2 = Range("A" & i).End(xlDown).Row - 1
For Boucle = NumLigne1 To NumLigne2
If Right(Range("B" & Boucle), 3) = "jpg" Or Right(Range("B" & Boucle), 3) = "gif" Or Right(Range("B" & Boucle), 4) = "jpeg" Then
Range("B" & Boucle).Copy
Range("C" & i).PasteSpecial xlPasteValues
End If
Next Boucle
End If
Next i
Application.ScreenUpdating = True
UserForm3.Hide
Sheets("Intro").Select
MsgBox " Fin de la première partie du traitement "
End Sub