BASEVEHICULES.Range("O65536").End(xlUp).Offset(1, 0).FormulaR1C1 = "=IF(TODAY()>RC[-5]-15,"contrôle à effectuer","contrôle valide")"
BASEVEHICULES.Range("P65536").End(xlUp).Offset(1, 0).FormulaR1C1 = "=IF(RC[-4]="","Pas de contôle à effectuer",IF(TODAY()>RC[-4]-15,"contrôle à effectuer","Contrôle valide"))"