Bonjour
colle ce code dans un nouveau module, et associe les boutons
Pense à simplifier tes macro enregistrées si tu veux progresser
Sub Monarchive()
Set zone = ThisWorkbook.Sheets("IG").Range("c22:g33")
madate = ThisWorkbook.Sheets("IG").Range("c22")
If existe(madate) = True Then MsgBox "Déjà archivée": Exit Sub
With Sheets("archives")
dilg = .Cells(.UsedRange.Count + 1, 3).End(xlUp).Row + 1
zone.Copy .Cells(dilg, 2)
End With
End Sub
Sub voirarchive()
With Sheets("archives")
dilg = .Cells(.UsedRange.Count + 1, 3).End(xlUp).Row + 1
.Activate
.Cells(dilg - 11, 2).Select
End With
End Sub
Function existe(madate)
With Sheets("archives")
Set k = .Columns(2).Find(madate)
If k Is Nothing Then existe = False Else existe = True
End With
End Function