Sub DefNoms_2()
Dim LstRw As Long, i As Integer
With Sheets("Main")
LstRw = .Cells(.Rows.Count, 1).End(3).Row
For i = 1 To 10
If .Cells(1, i) = "ici" Then
.Cells(1, i) = "LA"
ActiveWorkbook.Names.Add Name:="LA", _
RefersToR1C1:="=Main!R2C" & i & ":R" & LstRw & "C" & i
Exit For
End If
Next i
End With
End Sub