Private Sub UserForm_Initialize()
Dim t
Sheets("archi").Activate
On error resume next 'Au cas où il n'y est aucun items
t = Range("A7:A100").SpecialCells(xlCellTypeConstants).Value
ListBox1.List = t
End Sub
Private Sub CommandButton1_Click()
With ListBox1
If .ListIndex > -1 Then
Range("J7").Offset(.ListIndex) = 1
MsgBox "Archi Validé" 'on affiche que c'est validé
End If
End With
End Sub