Sub Bouton1_Clic()
Dim Lig1 As Long
Dim Lig2 As Long
Sheets("feuil1").Select
Sheets("feuil1").Copy after:=Sheets("feuil1")
Sheets("feuil1 (2)").Select
Sheets("feuil1 (2)").Name = "copie"
Application.EnableEvents = False ' => désactive les événements
With Sheets("copie")
m = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
p = .Cells(.Rows.Count, "B").End(xlUp).Row + 6
With .Range(.Cells(m, 2), .Cells(p, 2)).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="CONTROLER,ANALYSER,AJOUTER,VERIFIER"
Lig1 = CLng(ComboBox1.List(ComboBox1.ListIndex, 1)) 'erreur sur cette ligne
Lig2 = CLng(ComboBox1.List(ComboBox1.ListIndex, 2))
For I = Lig1 To Lig2
Sheets(nomfeuille1).Range("c" & 19) = Sheets(nomfeuille1).Range("c" & 19) & " " & Sheets(nomfeuille1).Range("e" & I)
Next I
End With
End With
End Sub