Sub MettreFormules()
' Const Année = "2021"
Dim Année As String, L&, NomPré
Année = Cells(1, "X").Value ' À VÉRIFIER (je n'avais vu qu'après que l'année était dans une cellule)
L = 2
Do: NomPré = Cells(L, "B").Value: If VarType(NomPré) <> vbString Then Exit Do
If Dir("\\SrvAldo\drh\" & NomPré & "\" & NomPré & " " & Année & ".xlsx") = "" Then
Cells(L, "C").Resize(12, 30).Value = CVErr(xlErrRef)
Else
Cells(L, "C").Resize(12, 30).FormulaR1C1 = "='\\SrvAldo\drh\" & NomPré _
& "\[" & NomPré & " " & Année & ".xlsx]ANNUEL'!R[" & 2 - L & "]C"
End If
L = L + 12
Loop
End Sub