Public Sub BoutonRecherche()
Application.EnableEvents = False
Application.ScreenUpdating = False
Sheets("SuivisAppels").Select
ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(1).Select
If ActiveCell.Offset(0, 6) = "" Then
Application.Calculation = xlManual
End If
'UserForm_Initialize
fm_SaisieRecherche.Show
If ActiveSheet.Name = "SuivisAppels" Then
'Range("a1").Select
End If
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub