Sub Ouvre_Et_Efface()
Dim fileExplorer As FileDialog, fichier, wbkS As Workbook
On Error GoTo err
Set fileExplorer = Application.FileDialog(msoFileDialogFilePicker)
fileExplorer.AllowMultiSelect = False
With fileExplorer
If .Show = -1 Then
fichier = .SelectedItems.Item(1)
Set wbkS = Workbooks.Open(fichier)
Else
MsgBox "Annulation ouverture fichier", vbCritical, "Avertissement"
fichier = vbNullString
End If
End With
wbkS.Sheets("toto").Range("A1:B50") = ""
wbkS.Close True
err:
Exit Sub
End Sub