Private Sub cmd_choix_refOK_Click()
On Error GoTo ErrHandler
Dim CurrentRow As Range
If Sheets('[color=#FF0000]LAFEUILLEENCOURS[/color]').Select = True Then
[color=#FF0000]LAFEUILLEENCOURS[/color].Range('B1').Select
MyFirstAddress = ''
If cxbreferencefiltre.Text = '' Then Exit Sub
Set MyCell = Cells.Find(What:=cxbreferencefiltre.Text, After:=[color=#FF0000]LAFEUILLEENCOURS[/color].Range('b1'), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
Exit Sub
End If
If Not (MyCell Is Nothing) Then
MyCell.Select
MyFirstAddress = MyCell.Address
Set CurrentRow = Selection.EntireRow
Else
MsgBox 'Aucune Fiche ne correspond...', vbExclamation
End If
Exit Sub
End Sub