If Not PosCol Is Nothing Then
NbValEnum = Workbooks("Parameters Catalogs.xlsx").Sheets("Liste déroulante").Range("B" & PosCol.Row).Value
Colonne = LetCol(i)
With Workbooks(Catalogue).Sheets(1).Range(Colonne & "2" & ":" & Colonne & "65535").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween,[B] Formula1:="=$A$2:$A$6"[/B]
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next
End Sub
Function LetCol(NoCol)
LetCol = Split(Cells(1, NoCol).Address, "$")(1)
End Function