J'ai réussi à résoudre ne partie mon problème. Voici ma macro
Private Sub CommandButton1_Click()
Sheets("Séminaires").Select
Range("A96").Select
Do
If ActiveCell.Value = "" Then
GoTo archiver
End If
If ActiveCell.Value <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = ""
archiver:
I
ActiveCell.Value = UserForm3!Label1
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = UserForm3!Label2
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = UserForm3!Label3
ActiveCell.Offset(1, 0).Select
UserForm3.Hide
Sheets("Séminaires").Select
End Sub
Le seul problème c'est que, quand je clisur sur OK dans mon userform, les vins rouge, rosé et blanc apparaissent alors qu'évidemment, je veux que seuls les vins cochés apparaissent !
Merci