PrivateSubWorksheet_SelectionChange(ByValTargetAsExcel.Range)IfTarget.Row>=2ThenOnErrorResumeNext[ChangColor_With1].FormatConditions.DeleteTarget.EntireRow.Name="ChangColor_With1"With[ChangColor_With1].FormatConditions.Delete.AddxlExpression,,"TRUE"