Private Sub CommandButton2_Click()
Dim i As Long
Application.ScreenUpdating = False
If ComboBox1.Text = "" Then MsgBox "Aucune période sélectionnée.": Exit Sub
With Sheets("Feuil2")
.Range("E20") = ComboBox1.Value
For i = 2 To 13
If .Cells(i, 3) = .Range("E20").Value Then
.Cells(i, 4) = ""
.Cells(i, 5) = ""
.Cells(i, 6) = ""
.Cells(i, 7) = ""
.Range("E20") = ""
Unload Me
Exit Sub
End If
Next i
End With
Application.ScreenUpdating = True
End Sub