Sub control()
Workbooks.Open "\\Serveur-spag\buffer\Save\k.abou\projet\commerciale\toto\compromis.xls"
Workbooks.Open "\\Serveur-spag\buffer\Save\k.abou\projet\commerciale\toto\chrono_adf.xls"
Workbooks.Open "\\Serveur-spag\buffer\Save\k.abou\projet\commerciale\toto\g_px.xls"
Workbooks.Open "\\Serveur-spag\buffer\Save\k.abou\projet\commerciale\toto\taxe.xls"
Workbooks.Open "\\Serveur-spag\buffer\Save\k.abou\projet\technique\toto\cout_g.xls"
Workbooks.Open "\\Serveur-spag\buffer\Save\k.abou\projet\technique\toto\mensualite.xls"
Range("f43:f53") = Workbooks("cout_g.xls").Sheets("cout").Range("g34:g44").Value
If Range("B7").Value = Workbooks("g_px.xls").Sheets("recap").Range("b7").Value Then
Range("e7").Interior.ColorIndex = xlNone
Range("e7") = ""
Range("F7").Interior.ColorIndex = xlNone
Range("F7") = ""
Else
Range("E7").Interior.ColorIndex = 3
Range("E7") = "X"
Range("F7") = Workbooks("g_px.xls").Sheets("recap").Range("b7").Value
Range("F7").Interior.ColorIndex = 3
End If