Merci Nad pour ta réponse
c'est pas la même que tu m'as fais hier cella j'aimerai bien quand j'appuie sur le bouton avoir deux choix archiver devis ou archiver facture
voilà les macro:
Sub gestiondevis1()
'
' gestiondevis Macro
'
' On est dans la page "Devis Factures P1"
With Sheets("Gestion Devis factures")
.Range("A3:F3").Insert shift:=xlShiftDown
.Range("A3:F3").Value = Array(CDate(Range("E7")), Range("E8"), Range("B12"), Range("E47"), Range("E48"), Range("E49"))
.Range("A3:F3").Interior.ColorIndex = xlNone
End With
End Sub
Sub gestionfactures1()
'
' gestiondevis Macro
'
' On est dans la page "Devis Factures P1"
With Sheets("Gestion Devis factures")
.Range("I3:P3").Insert shift:=xlShiftDown
.Range("I3:P3").Value = Array(CDate(Range("E7")), Range("E8"), Range("B12"), Range("E47"), Range("E48"), Range("E49"), Range("E53"), Range("E54"))
.Range("I3:P3").Interior.ColorIndex = xlNone
End With
End Sub