Private Sub CommandButton1_Click()
Dim MyData As New DataObject
MyData.SetText [Résultat]
MyData.PutInClipboard
MsgBox [Résultat] & Chr$(10) & " a été copié dans le presse-papier."
If Répertoire_existe([rep_racine]) Then
Btn_rep.Visible = True
Btn_rep.Enabled = True
Else
Btn_rep.Visible = False
Btn_rep.Enabled = False
End If
End Sub