Private Sub ListEditerFIS_Click()
'FL 20170531
Dim SearchString As String
Dim PosCR As Long
On Error GoTo InfoErreur
Workbooks(G_WorkBookName).Sheets(ONGLET_BASE_FIS_NOM).Activate
' récupère la référence
PosCR = InStr(1, Me.ListEditerFIS, vbTab, vbTextCompare)
SearchString = Left(Me.ListEditerFIS, PosCR - 1)
' ouvre le formulaire
IHM_EditerFIS (SearchString)
Me.ListEditerFIS = ""
'JD 20120921
Me.ListEditerFIS.Locked = True
Me.ListEditerFIS.ForeColor = &HFF8080
Me.BtnDuplicateFIS.ForeColor = &HFF0000
Me.BtnModifierFIS.ForeColor = &HFF0000
Me.BtnCreateFIS.ForeColor = &HFF0000
Exit Sub
InfoErreur:
MsgBox "Erreur N°: " & Err.Number & vbCrLf & Err.Description & vbCrLf, vbCritical, "Type erreur"
End Sub