''trouver ce qui manque
For Each cle In Tres
If Not DicTest.Exists(cle) Then
Dtres(cle) = Dtres(cle)
End If
Next cle
If Dtres.Count > 0 Then
' MsgBox Dtres.Count
' ligne = 1 ''''''''
' Do While ligne <= Dtres.Count ''''''''
' Open ThisWorkbook.Path & "\" & "Archive des BD" & "\" & "Mesures" & "\" & "Manquants" & ".txt" For Output As #ligne '''''''
' Print #ligne, cle & " " & Dtres.item(cle) & vbCrLf '''''''
' Close '''''''
' ligne = ligne + 1 ''''''
'Loop '''''
' Feuil29.Range("A2").Resize(Dtres.Count, 1) = Application.Transpose(Dtres.keys) 'ceci juste pour un test
' données à compléter
For Each cle In Dtres.keys
Z = Z & "L'objet " & cle & " " & Dtres.item(cle) & " manquant !!" & vbLf
Next cle
Else
MsgBox "BD à jour"
End If
MsgBox Z