With Sheets(Noms_feuilles(i)).Cells(2, colcat).EntireColumn.Validation 'Morceau au sein d'une boucle, Noms_feuilles contient le nom de mes feuilles donc je procède à la validation sur toutes les feuilles
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Catégories" 'Nom de ma plage qui sert de validation'
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With