Bonsoir,
je te suggère les modif suivantes :
Sub suiteclasseur()
Dim MyDate, MadatePlus1 As Date
Columns("AF:AF").Select
Selection.Copy
ChDir "C:\"
MadatePlus1 = Date
MyDay = Day(MadatePlus1)
MyMonth = Month(MadatePlus1)
MyYear = Year(MadatePlus1)
MyDate = MyDay & MyMonth & MyYear
Workbooks.Open Filename:= _
etc ...