Sub calcul_devis()
Dim i As Integer
'Calcul de la référence Client
For i = 7 To Sheets("Configurations").Range("B65536").End(xlUp).Row
If Sheets("Devis").Range("E12").Value = Sheets("Configurations").Cells(i, 2) Then
Sheets("Devis").Range("E13").Value = Sheets("Configurations").Cells(i, 3).Value
End If
Next i
'On met la date en E11
Range("E11").Value = Date
'Calcul du cout d'études
Range("E17").Value = Range("F17").Value * Range("G17").Value