Private Sub Worksheet_Change(ByVal Target As Range)
'selon la nature du bouton, choisir une des 2 instructions
If Target.Address = "$B$1" Then CommandButton1.Caption = "Imprimer " & vbCrLf & "le tableau " & Target
If Target.Address = "$B$1" Then ActiveSheet.DrawingObjects("Bouton 2").Characters.Text = "Imprimer " & Chr(10) & "le tableau " & Target
End Sub