Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim T1 As Range, T2 As Range, c As Range
Set T1 = [Tableau1]: Set T2 = [Tableau2]
If Intersect(Target, Union(T1, T2)) Is Nothing Or Target.Count > 1 Then Exit Sub
If T1(1) = "" Then T1(1).Select: Exit Sub
Set c = T1.Find("", , xlValues)
If Not c Is Nothing Then c.Select: Exit Sub
If T2(1) = "" Then T2(1).Select: Exit Sub
Set c = T2.Find("", , xlValues)
If Not c Is Nothing Then c.Select
End Sub