Retrouver une ligne d'un tableau

Question

Bonjour à tous.
Voici un code VBA que j'ai fait pour extraire une ligne d'un tableau dont les premières cellules de chaque ligne sont dans une liste déroulante.

L'idée est de choisir un nom de chantier dans la liste déroulante et que la ligne associée soit créée dans une nouvelle feuille.
Seulement voilà, il n'y a que la première ligne de mon tableau qui est copiée malgré le fait que ma boucle soit bien répétée jusqu'à trouver la bonne valeur.

Donc je ne comprends pas trop. Pouvez-vous m'aider ?
Merci beaucoup !

Voilà le code VBA :

Option Explicit

Private Sub btnExtraction_Click()

'Déclaration des variables
Dim MonChantier As Range
Dim ListeChantier As Range
Dim NbLignes As Long
Dim LigneActive As Long

'Affectation des variables
Set ListeChantier = Feuil5.Range("A3", Feuil5.Range("A2").End(xlDown))
NbLignes = ListeChantier.Rows.Count
LigneActive = 0

'On insère une nouvelle feuille
Sheets.Add
Feuil5.Range("A1").EntireRow.Copy ActiveCell
Range("A2").Select
Feuil5.Range("A2").EntireRow.Copy ActiveCell
Range("A3").Select

'On boucle chaque région se trouvant dans la liste
For Each MonChantier In ListeChantier
'On se décale d'une ligne
LigneActive = LigneActive + 1
'On recherche la région saisie dans la liste déroulante
If MonChantier.Value = Me.cboChantier.Value Then
'Si la région est trouvée, on récupère l'enregistrement du chantier
MonChantier.EntireRow.Copy ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Next MonChantier
'On va ajuster les colonnes des tableaux
Range("A1").Select
ActiveCell.CurrentRegion.EntireColumn.AutoFit

End Sub

h2so4 · Answer

Ce code fonctionne correctement, le problème doit être dans tes données que tu ne nous as pas mises. ps : pour mettre du code dans ton message merci d'utiliser le bouton &lt;/&gt...