Ne pas tenir compte que le texte est en majuscule

Oui effectivement c'est ça, pour l'instant plus rien ne fonctionne

As-tu essayé mon dernier code?

Select Case ValRef
  Case 3: Cells(k, 9).Value = fichier.Name
  Case 18: Cells(k, 19).Value = fichier.Name
  Case 22: Cells(k, 23).Value = fichier.Name
  Case 38: Cells(k, 45).Value = fichier.Name
End Select

Si oui, les noms des fichiers sont-ils bien inscrits dans les cellules?

oui j'ai essayé mais ça ne fonctionne pas car ton code ne prend pas en compte toutes mes nécessités donc j'ai du rajouter :

For Each fichier In SourceFolder.Files 
        'If fichier Like "*_" & ref & ".jpg" Or fichier Like "*_" & ref & ".JPG" Then 
            'cheminETnom = Repertoire & "\" & fichier.Name 
        If InStr(1, Repertoire & "\" & fichier.Name, ref, vbTextCompare) > 0 Or fichier Like "*_" & ref & ".jpg" Then 
            cheminETnom = LCase$(Repertoire & "\" & fichier.Name) 
            Select Case valref 
                Case 3: Cells(k, 9).Value = Split(cheminETnom, "\")(UBound(Split(cheminETnom, "\"))) 
                Case 18: Cells(k, 19).Value = Split(cheminETnom, "\")(UBound(Split(cheminETnom, "\"))) 
                Case 22: Cells(k, 23).Value = Split(cheminETnom, "\")(UBound(Split(cheminETnom, "\"))) 
                Case 38: Cells(k, 45).Value = Split(cheminETnom, "\")(UBound(Split(cheminETnom, "\")))

C'est bon j'ai réussi à me débloquer, merci de votre aide et de votre patience

Ce code :

InStr(1, Repertoire & "\" & fichier.Name, ref, vbTextCompare) > 0

t'indique si, dans le chemin + nom du fichier, se trouve le contenu de la variable ref.

Donc, s'il trouve ref, il trouvera un fichier qui "serait comme" "*_" & ref & ".jpg" non?

Si tu n'expliques pas clairement le but de ta macro, ceci sera ma dernière réponse...

Alors que revoilà

Split(cheminETnom, "\")(UBound(Split(cheminETnom, "\")))