Sub Sauve_Fichiers()
Dim Nom_Fichier As String, Rep_Travail As String, Rep_Sauve As String
Rep_Travail = "c:\mes fichiers\"
Rep_Sauve = "c:\Sauvegarde\"
Do
Nom_Fichier = Dir(Rep_Travail & "*.txt", vbNormal) ' ici .txt ou .doc ou *.* ou autre ! à voir !?
If Not (Nom_Fichier = "") Then
SizeFile = FileLen(Rep_Travail & Nom_Fichier) ' ici la taille avec Test If > 11
If SizeFile > 11 Then Name Rep_Travail & Nom_Fichier As Rep_Sauve & Nom_Fichier
End If
Loop Until Nom_Fichier = ""
End Sub