Bonsoir Arnaud, bonsoir le forum,
Je me permets une suggestion même si j'imagine que tu as déjà vérifié...
N'aurais-tu pas la cellule A5 vide ?
Si c'est le cas, utilise plutôt :
Me.CmbType.RowSource = "listes!A1:A" & Sheets("listes").Cells(65536, 1).End(xlUp).Row
Désolé mais je n'ai trouvé que ça pour t'aider.
À plus,
Robert