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 : Sélectionner tout - Visualiser dans une fenêtre à part
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