Sub b()
Dim vARR, t, test$, i&, j&
t = Split("O17 M19 P19 O21 L23 O23 N25 P27")
vARR = Sheets("donnee").Range("A2:H19").Value
For i = LBound(vARR, 1) To UBound(vARR, 1)
For j = LBound(vARR, 2) To UBound(vARR, 2)
test = test & Sheets("certificat").Range(t(j - 1)).Address(0, 0) & "#" & vARR(i, j) & Chr(13)
Next
Next
MsgBox Mid(test, 1, 326), vbExclamation, "Et pourtant elle tourne ;-)"
End Sub