[VBA] - Problème de boucle

Bonjour,

J'ai créer le code ci dessous qui me permet suivant que les 4 premiers caracteres d'une cellule soient egaux aux 4 autres de la cellule du dessus, si c'est le cas des informations s'affichent dans une cellule vide
Le problème c'est que ça fonctionne pour qu'une ligne.Pourriez vous me dire comment boucler le code sur toutes les lignes
Merci

Code:

---

1 2 3 4 5 6 7 8 9

Sub MarqueLesDoublons()     If Left(C16, 5) = C15 Then Range("Y16").Value = "MT en " & Range("H16").Value & " " & _ Range("D16").Value & " " & "le " & Range("W16").Value & " " & _ "par " & Range("M16").Value & " " & Range("V16").Value End If End Sub

---

Code:

---

1 2 3 4 5 6 7 8

For each Ligne in Worksheets("feuil1").range("A1:A" & Cells(Columns(1).Cells.Count, 1).End(xlUp).Row) NoLigne = Ligne.row If Left(Cells(NoLigne, 3), 5) = Cells(NoLigne - 1, 3) Then Range("Y" & NoLigne).Value = "MT en " & Range("H" & NoLigne).Value & " " & _ Range("D"" & NoLigne).Value & " " & "le " & Range("W" & NoLigne).Value & " " & _ "par " & Range("M" & NoLigne).Value & " " & Range("V" & NoLigne).Value End If Next

---

Si la première ligne de ta plage commence à 16, alors tu remplaces 1 par 16 là For each... Range("A16:A" & (la fin restant inchangée)
A+

Merci ouskel'n'or de ton aide, mais il ne se passe rien, je n'ai aucune erreur, j'ai bien indiqué la bonne colonne et la bonne feuil'
slt

Un oubli déclare Ligne as range ;)