Sub RemplirDevis()
With Sheets("Fiche Travaux")
.[C3] = "Date EDL : " & Format([G8], "dd/mm/yyyy")
.[A4] = "Log : " & [B8]
.[B4] = "Bat : " & [C8]
.[A11] = "N° Bt : " ' Quelle cellule mettre ?
.[A13] = Format([K8], "# ##0.00 €") & vbCrLf & [P8]
.[A17] = Format([K9], "# ##0.00 €") & vbCrLf & [P9]
.[A21] = Format([K11], "# ##0.00 €") & vbCrLf & [P11]
.[A24] = Format([K10], "# ##0.00 €") & vbCrLf & [P10]
.Select
End With
End Sub