Do
flag = MsgBox("Est-ce bien de " & c.Text & " " & c.Offset(, 1) & " qu' il s'agit?", vbYesNo, "Recherche représentants")
if flag=vbNo then 'On continue
Set c = .FindNext(c)
else
Exit do 'On sort de la boucle
end if
Loop While Not c Is Nothing And c.Address <> firstAddress
if flag=vbyes And Not c Is Nothing then
With Représentants
.TextBox1 = Cells(Pointeur_a, 35) ' Cells(c.row, 35) ??????
.TextBox2 = Cells(Pointeur_a, 36)
.TextBox3 = Cells(Pointeur_a, 37)
.TextBox4 = Cells(Pointeur_a, 38)
.TextBox5 = Cells(Pointeur_a, 39)
.TextBox6 = Cells(Pointeur_a, 40)
.TextBox7 = Cells(Pointeur_a, 41)
.TextBox8 = Cells(Pointeur_a, 42)
.TextBox9 = Cells(Pointeur_a, 43)
End With
end if