formule = Replace("=IF('C:\chemin d'accès\[TextBox1]TextBox2'!A1='C:\chemin d'accès\[TextBox3]TextBox4'!A1;""O"";""N"")", "TextBox1", TextBox1.Value)
formule = Replace(Replace(Replace(formule, "TextBox2", TextBox2.Value), "TextBox3", TextBox3.Value), "TextBox4", TextBox4.Value)
Range("A1").Formula = formule