Private Sub CommandButton1_Click()
Dim t$
t = Sheets("COMMANDE").[B6].Text
Sheets("COMMANDE").Copy
With ActiveSheet
With .[A2].CurrentRegion: .Value = .Value: End With
.[B6] = t
.Shapes(1).Delete
Application.Dialogs(xlDialogSaveAs).Show Replace(CStr(.Range("B2").Text), "/", "_")
End With
End Sub