If ActiveCell.FormulaR1C1 = "=IF(R[-2]C=""1er"",""FERIE"",IF(R[-1]C=""Sa"",""W-E"",IF(R[-1]C=""Di"",""W-E"",""""))" = True Then
ActiveCell.Offset(0, 1).Select
If ActiveCell.FormulaR1C1 = "=IF(R[-2]C=""1er"",""FERIE"",IF(R[-1]C=""Sa"",""W-E"",IF(R[-1]C=""Di"",""W-E"",""""))" = False Then
ActiveCell.Value = "1"