Fab007

Bonjour,
J'ai un souci au niveau de cette macro au niveau de Formula1 :=
Je voudrais un menu déroulant modifiable. Mes données sont en lignes.
Ma variable NbCol est un numéro de colonne. NBCol peut etre AK, AL ou une autre colonne.
Merci pour votre aide

Sub Menu_déroulant_date_1()
'
'

Range("N" & j).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$AJ" & Ligne & ":" & NbCol & Ligne
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next j
End Sub