Limitation à l'aide d'un code

If flag Then Exit Sub 'Controle Affectations
flag = True
 Col = Array("C", "H", "M", "R")
For n = 0 To UBound(Col)
  For Each cel In Range(Col(n) & "1:" & Col(n) & Range(Col(n) & "41").End(xlUp).Row)
     If cel.Value <> "" And cel.Font.Color <> 8421504 Then
         For Each Cell In Sheets("Parc").Range("C7:C300")
           If cel.Value = Cell.Value Then
             Cell.Copy Destination:=cel
             cel.Borders.LineStyle = 7
           End If
           
         Next Cell
     End If
  Next cel
Next n

flag = False

If flag Then Exit Sub 'Controle Affectations
flag = True
 Col = [COLOR="#FF0000"]Bus1r[/COLOR]
For n = 0 To UBound(Col)
  For Each cel In Range(Col(n) & "1:" & Col(n) & Range(Col(n) & "41").End(xlUp).Row)
     If cel.Value <> "" And cel.Font.Color <> 8421504 Then
         For Each Cell In Sheets("Parc").Range("C7:C300")
           If cel.Value = Cell.Value Then
             Cell.Copy Destination:=cel
             cel.Borders.LineStyle = 7
           End If
           
         Next Cell
     End If
  Next cel
Next n

flag = False