Salut Netparty,
une solution sans se casser la tête...
Tu caches les valeurs courantes de chaque série derrière tes boutons!
Tu suis avec une SUB commune aux deux...
Sub User(ByVal iIdx%)
'
Dim iRow%, iCol%, iNum%
'
With Worksheets("UTILISATEURS")
If WorksheetFunction.CountA(.Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)) < .Range("A" & Rows.Count).End(xlUp).Row Then _
.Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp
iRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
iCol = IIf(iIdx = 1, 3, 4)
.Cells(1, iCol) = .Cells(1, iCol) + 2
iNum = .Cells(1, iCol)
.Cells(iRow, 1).Value = iNum
.Cells(iRow, 2).Value = Date
.Cells(iRow, 3).Value = Environ("USERNAME")
.Cells(iRow, 4).Select
End With
'
End Sub
A+