Sub MoveFile()
Dim rS, rD, crit
rS = "C:\Work in progress\01 - Non coformités réelles non corrigées\"
rD = "C:\Work in progress\02 - Non conformités réelles corrigées\"
SR = Worksheets("Chart").Range("B2")
Corr_date = InputBox("Date de correction du dossier ?", "Date de correction")
Correction = InputBox("Correction effectué ?", "Correction")
Worksheets("Chart").Range("D3") = Corr_date
Worksheets("Chart").Range("D12") = Worksheets("Chart").Range("D12") & "Correction : " & Correction
Set fs = CreateObject("Scripting.FileSystemObject")
fs.MoveFile rS & "*" & crit & "*.xlsx", rD
End Sub