Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim dl1 As Long ' dernière ligne
Dim i As Byte
[COLOR="Red"]If ComboBox2.ListIndex = -1 Then Exit Sub
With Sheets(ComboBox2.Value)[/COLOR]
...................................
TextBox2.Value = ""
End If
[COLOR="Red"]End With[/COLOR]
End Sub