Private Sub Worksheet_Deactivate()
Dim w As Worksheet
Set w = ActiveSheet 'mémorise
If w.Name <> "Feuil2" Then Exit Sub
Application.ScreenUpdating = False
Me.Activate
If ActiveCell.RowHeight = 15 Then
Application.ScreenUpdating = True
MsgBox "Vous n'avez pas sélectionné de ligne feuille Suivis Appels"
Else
w.Activate
End If
End Sub