Bonjour
essaie ce code que tu peux affecter à ton bouton
si j'ai bien compris!
Sub sup()
nbcol = 15
Set montag = Sheets("Fiche départ GAZ").Range("c6")
With Sheets("Liste bouteille GAZ PERL")
lg = .Columns(1).Rows.Find(montag).Row
Set bouteille = .Range(.Cells(lg, 1), .Cells(lg, 15))
Call copie(bouteille)
End With
End Sub
Sub copie(b)
With Sheets("Archives bouteille GAZ PERL")
drlg = .Cells(.UsedRange.Rows.Count, 1).End(xlUp).Row + 1
b.Copy .Cells(drlg, 1)
b.Delete Shift:=xlUp
End With
End Sub