Sub essai()
Set flx = Sheets("f-ele")
rep_photo1 = "ton répertoire\photo classe\"
rep_photo2 = "ton répertoire\photo classe 2006 2007\"
For Each photo In flx.Range(flx.Range("b1"), flx.Range("b65536").End(xlUp))
fichier1 = Dir(rep_photo2, vbDirectory)
Do While fichier1 <> ""
If fichier1 = photo.Value Then
Exit Do
Else
fichier1 = Dir
End If
Loop
If fichier1 <> "" Then
With Application.FileSearch
.LookIn = rep_photo1
.SearchSubFolders = True
.Filename = fichier1
.FileType = msoFileTypeAllFiles
If .Execute = 0 Then
FileCopy rep_photo2 & fichier1, rep_photo1 & fichier1
End If
End With
End If
Next
End Sub