Sub NouveauProjet()
Dim I As Integer
I = Range("B10000").End(xlUp).Row
Dim J As Integer
J = Sheets("Listing").Cells(13, 3).Value
With Range(Cells(3, 2), Cells(I, 3))
.FormatConditions.Add Type:=xlExpression, Formula1:="=$B3=""" & Cells(I, 2).Value & """"
.FormatConditions(J).Interior.ColorIndex = Sheets("Listing").Cells(8, 3).Value
.FormatConditions(J).StopIfTrue = False
End With
Sheets("Listing").Cells(5, 3).Value = Sheets("Listing").Cells(5, 3).Value + 1
Sheets("Listing").Cells(8, 3).Value = Sheets("Listing").Cells(8, 3).Value + 1
Sheets("Listing").Cells(13, 3).Value = Sheets("Listing").Cells(13, 3).Value + 1
End SubSub NouveauProjet()
Dim I As Integer
I = Range("B10000").End(xlUp).Row
Dim J As Integer
J = Sheets("Listing").Cells(13, 3).Value
With Range(Cells(3, 2), Cells(I, 3))
.FormatConditions.Add Type:=xlExpression, Formula1:="=$B3=""" & Cells(I, 2).Value & """"
.FormatConditions(J).Interior.ColorIndex = Sheets("Listing").Cells(8, 3).Value
.FormatConditions(J).StopIfTrue = False
End With
Sheets("Listing").Cells(8, 3).Value = Sheets("Listing").Cells(8, 3).Value + 1
Sheets("Listing").Cells(13, 3).Value = Sheets("Listing").Cells(13, 3).Value + 1
End Sub