Voici mon programme, à partir de .Delete, j'ai :", erreur 1004,erreur définie par l'application ou par l'objet"
merci de votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub ListeValidation()
Dim Lig As Integer, i As Integer
Dim Plage
i = Cells(2, 100).CurrentRegion.Rows.Count
Plage = Worksheets("NomFeuille").Range(Cells(2, 100), Cells(i, 100))
Lig = Cells(2, 1).CurrentRegion.Rows.Count
 
    With Worksheets("NomFeuille").Range(Cells(3, 24), Cells(Lig, 24)).Validation
        .Delete
        .Add Type:=xlValidateList, _
            AlertStyle:=xlValidAlertStop, _
            Operator:=xlBetween, _
            Formula1:=Plage
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
 
End Sub