Sub BoucleFichiers()
Dim Chemin$, Fichier$, Ligne%, Trimestre, Colonne%, Numéro%, Prime, LignePrime%
Application.ScreenUpdating = False ' Ecran figé
Chemin = ThisWorkbook.Path & "\" 'Tous les fichiers sont dans le même dossier
Fichier = Dir(Chemin & "*.xls*") 'Boucle sur tous les fichiers xls du répertoire.
Do While Len(Fichier) > 0 ' Pour tous les fichiers
If Left(Fichier, 13) <> "Fichier_recap" Then ' Sauf ce fichier, Nom à adapter
Workbooks.Open Chemin & Fichier ' Ouvrir fichier
Trimestre = Sheets("Fiche").[C14] ' Lire Trimestre
Colonne = CInt(Right(Trimestre, 1)) + 3 ' Choix colonne trimestre où écrire
LignePrime = Application.Match("TOTAL Prime 2", Sheets("Fiche").[E:E], 0) ' Cherche ligne Prime 2
Prime = Sheets("Fiche").Cells(LignePrime, "F") ' Lit la prime
ActiveWorkbook.Close Savechanges:=False ' Ferme le fichier
Numéro = CInt(Right(Split(Fichier, ".")(0), 5)) ' Extrait le Numéro
Ligne = Application.Match(Numéro, [C:C], 0) ' Ligne Numéro où écrire
Cells(Ligne, Colonne) = Prime ' Ecriture valeur trimestre
End If
Fichier = Dir() ' Fichier suivant
Loop
End Sub