Option Explicit
Private Sub CommandButton1_Click()
Dim Chemin As String
Dim Classeur As Workbook
Dim NmClasseur As String
NmClasseur = "Classeur2.xls"
Chemin = "C:\####################\" & NmClasseur
On Error Resume Next
Set Classeur = Workbooks(NmClasseur)
If Err <> 0 Then
Set Classeur = Workbooks.Open(Chemin, , False) ' Si classeur pas ouvert, on l'ouvre
End If
Classeur.Worksheets(1).Range("N:N,Q:Q,S:S").EntireColumn.Delete
Workbooks(NmClasseur).Close SaveChanges:=True ' On ferme après enregistrement
End Sub