Dim chemin As String, NomFic As String
chemin = "C:\Documents and Settings\MOI\Bureau\"
For i = 1 To 3
NomFic = Sheets(i).Name & " " & StrConv(Format(Date, "dd mmmm yy"), vbProperCase) & " .pdf"
Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & NomFic
Next i