Bonjour
tu peux essayer ceci:
Private Sub CommandButton1_Click()
Dim AccManquants, P, R, compare, phrase1, phrase2
phrase1 = "Acessoires manquants: ": phrase2 = "Accessoires Prètés: "
AccessoiresReintegres
For P = LBound(AccPretes) To UBound(AccPretes)
compare = False
For R = LBound(AccReinteg) To UBound(AccReinteg)
If AccPretes(P) = AccReinteg(R) Then
compare = True
End If
Next R
If compare = False Then phrase1 = phrase1 & "," & AccPretes(P)
phrase2 = phrase2 & "," & AccPretes(P)
Next P
MsgBox phrase1 & Chr(13) & phrase2
TextBox9 = Date
End Sub