XL 2013 Message d'erreur lors du remplissage de ma combobox

[donpopo]

Bonsoir le forum,

Il y a quelques temps, vous m'avez aidé pour remplir des combobox avec des données d'une colonne commençant à la ligne 5 et finissant ... (nombre de lignes variable).

'---------------------------
'Valorisation de la ComboBox
'---------------------------
Private Sub SetComboBox()
Dim DernièreLigneLocataire As Long

With Application
DernièreLigneLocataire = .Max(.IfError(.Match("zzz", ThisWorkbook.Worksheets("Locataires").Columns(1), 1), 0), _
.IfError(.Match(999 ^ 99, ThisWorkbook.Worksheets("Locataires").Columns(1), 1), 0))
End With
ComboBox1.List = Sheets("Locataires").Range("A5:A" & DernièreLigneLocataire).Value

Bien que je ne comprenne pas ligne d'instruction, cela fonctionnait très bien jusqu'au moment où j'ai rajouté une colonne au début à la feuille. Cela ne devrait pourtant pas affecter l'instruction, car j'ai des données dans la nouvelle colonne aussi.

J'ai un message d'erreur d’exécution
381
Impossible de définir la propriété ListIndex. Index de table de propriétés non valide.

Quelqu'un aurait-il une idée pour résoudre ce problème ou une autre solution?
Merci d'avance,

 

[bbb38]

Bonjour donpopo, le forum,
Sur le fichier ci-joint, la feuille « LB_Col_A » comprend les données en colonne A, la feuille « LB_Col_B » comprend les données en colonne B, pour remplir les ComboBox respectifs.
A adapter à ton fichier.
Cordialement.
Bernard

 

[donpopo]

Bonjour Bernard,
Merci, c'est exactement ce qu'il me fallait et beaucoup plus simple et compréhensible que les lignes d'instruction que j'avais.
Amicalement,
Georges