Bonjour,
Ta formule fonctionne, pour un peu que l'onglet indiqué dans ta formule existe !!!!
Dans ton code, tu as ceci
Sub Création_des_feuilles_collaborateur()
Dim I As Integer, j As Integer, k As Integer, Nom_Feuille As String
Application.ScreenUpdating = False
Sheets("Modèle").Visible = True
Range("O1:O65000").ClearContents
For I = 4 To Range("A65000").End(xlUp).Row
Nom_Feuille = Sheets("Synthèse").Range("A" & I) & " "
Dans ton nom de feuille, que tu vas créer, tu ajoutes un espace à fin.
C'est ce qui ne fonctionne pas !!!!!
Soit tu enlèves ton espace dans la création de ta feuille en VBA, soit tu adaptes ta formule
=INDIRECT(ADRESSE(1;25;1;;(A4)&" "))