Dim Nom As String
Dim chemin As String
chemin = ActiveSheet.Range("H3").Value
Nom = ActiveSheet.Range("D7").Value
Rows(ActiveCell.Row).Select
' Selection.Replace What:="test", Replacement:=chemin & "[" & Nom & ".xlsx" & "]", LookAt:=xlPart _
' , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
' ReplaceFormat:=False
ActiveCell.Replace What:="test", Replacement:=chemin & "[" & Nom & ".xlsx" & "]" _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False
Cells.Find(What:="test", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub