Bonjour,
Merci Papou,
c'est exactement ce que je veux, mais concernant les lignes
If aa(i, 7) = "PUNCH" Then
If Not Mondico.Exists(dd(i, 1)) Then Mondico.Add dd(i, 1), dd(i, 1)
cc = Application.Transpose(Mondico.Items)
End If
je veux effectuer le test non seulement sur PUNCH mais pour chaque ligne de E4 jusqu'à E8.
pourriez vous commenter le code puisque j'ai pas bien compris la signification.
Merci,