Dim chemin As String
Dim fichier As String
Dim formule As String
chemin = "http://www./30902975/"
fichier = "AUS_2018.xls"
formule = "='" & chemin & "[" & fichier & "]Janvier'!D34"
With Worksheets("Janvier").Range("D8:AE8")
.Value = formule
.Value = .Value
End With