Up,
Finalement, j'ai réussi à trouver un palliatif à l'itération.
Voici le code de i20100 corrigé pour le bon fonctionnement de la macro :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 2 Then
If IsEmpty(Target) Then Exit Sub
ligne = Application.Match(Target, Sheets("Contact").Range("C:C"), 0)
nb = Application.CountIf(Sheets("Contact").Range("C:C"), Target)
For j = 1 To nb
For i = 5 To Sheets("Contact").Cells(ligne, Columns.Count).End(xlToLeft).Column
t = t & Chr(10) & Sheets("Contact").Cells(ligne, i).Value
Next i
t = t & Chr(10)
ligne = ligne + 1
Next j
MsgBox t
End If
End Sub
Encore merci à vous