Sub MODIF()
Val1 = "a"
Val2 = "c"
Val3 = "j"
For j = 1 To 1000
Set Pl = Range(Cells(j, Val2), Cells(j, Val3))
If Application.Evaluate("COUNTIF(" & Pl.Address & "," & Pl.Address & ")") = Pl.Columns.Count Then
Cells(j, Val1).Value = "[" & Cells(j, 1).Value & "]"
End If
Next
End Sub