fb40

Bonjour, j'ai utilisé votre exemple (
Auteur: @+Thierry (195.78.6.---)
Date: 15-02-03 12:29
Pièce jointe: USF_ComboBox-Gestion-List.zip (15k) ) sur une liste dans un fichier et tout marche très bien. J'ai voulu m'en servir sur une autre liste dans une autre feuille du même classeur et cette fois -ci, l'userform ce lance bien avec le bon contenu dans la combo, je peux supprimer normalement lmais mon pb est lors de l'ajout d'un élément. il me marque :

" la méthode 'Range de l'objet'_Global a échoué"
si je fait débogage, voici ce qui apparait

Dim L As Integer
Dim i As Integer
Dim Nom As String
Dim Msg As Byte
Nom = ComboBox1.Value
If Nom = "" Then Exit Sub
Msg = MsgBox("Voulez-Vous Ajouter : " & Nom, vbYesNo, "fb40")
If Msg = 6 Then
L = Sheets("Collectivite").Range("A65536").End(xlUp).R ow + 1
Sheets("Collectivite").Range("A" & L).Value = Nom
Sheets("Collectivite").Columns("A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
' C EST LA LIGNE FOR EN DESSOUS QUI EST SURLIGNE
For i = Range("Collectivite").End(xlUp).Row + 1 To 2 Step -1
If Range("a" & i) = Range("a" & i - 1) Then
MsgBox "Doublon Détecté et Détruit : " & Range("a" & i - 1).Value, vbCritical, "fb40"
Range("a" & i).ClearContents
End If
Next
On Error Resume Next
Sheets("Collectivite").Columns(1).SpecialCells(xlC ellTypeBlanks).EntireRow.Delete
Ini
Combo
End If
ComboBox1.SetFocus

J'ai donc ce message d'erreur qui apparait mais il me rajoute qu'en même ma saisi dans la liste. A l'aide, merci.