pour que ça marche tu mets ça :
Private Sub btnCopie_Click()
    FichierC = txtDestination.Text      ' à la place de FichierC = FichierB
    FichierB = txtSource.Text            ' et cette ligne pour faire pareil
    If CopyFile(FichierB, FichierC, progress) Then _
    MsgBox "Fichier copié !", vbInformation + vbOKOnly, "NewsCopyFile"
End Sub

Ne l'aurais tu pas fais exprès ... êtrange