Sub Macro2()
If Range("G3") = "" Then
[COLOR="seagreen"] 'incrémente si G3 vide[/COLOR]
Range("A4") = Range("A4") + 1
Else
[COLOR="SeaGreen"]'suivant dans la liste si la valeur existe ! [B](dans le cas où elle n'existe pas, A4 ne bouge pas !)[/B][/COLOR]
[COLOR="seagreen"] 'création d'une variable[/COLOR]
valeur_cible = Range("A4").Value
[COLOR="seagreen"]'pour chaque cellules de la colonne E, depuis la fin jusqu'à la ligne 6 (car Vide pour le 1er remplissage)[/COLOR]
For i = Range("E65000").End(xlUp).Row To 6 Step -1
[COLOR="seagreen"]'si la valeur est égale au contenu d'une des cellules, alors prendre la valeur suivante et l'inscrire dans "A4"[/COLOR]
If valeur_cible = Cells(i, 5).Value Then Range("A4").Value = Cells(i + 1, 5).Value
Next
End If
Range("B4") = Range("B4") + 1
End Sub