Sub creation_dossier()
Dim x As String, strPath As String
Range([A1], [A80].End(xlUp)).Select
For Each cell In Selection
Rep = cell.Value
On Error Resume Next
strPath = "C:\Documents and Settings\dcn\Mes documents\" & Rep & ".xls"
ActiveWorkbook.SaveAs Filename:=(strPath)
Next cell
On Error GoTo 0
End Sub