Bonjour,
Votre problème vient du fait que dans le fichier "fiche prix", des feuilles ont été supprimées(la feuille "Feuil1", n'existe plus), il faut donc balayer toutes les feuilles d'une autre façon.
Dans le module de la feuille 1 du fichier technique, voici la partie modifiée:
For Each wb In Workbooks
If wb.Name = "fiche prix.xlsm" Then
flag = 1
wb.Activate
For i = 1 To Sheets.Count
wb.Sheets(i).Range("B3").Value = ThisWorkbook.Name 'On met le nom du fichier "FICHE" dans 'le récupérer
Next i
Exit For
End If
Next wb
En haut de la feuille , ajoutez: Option compare text et déclarez la variable i
Cdlt