Bonjour,
Essaye qqch du genre :
If Selection.Information(wdWithInTable) Then
For iTbl = 1 To ActiveDocument.Tables.Count
If Selection.InRange(ActiveDocument.Tables(iTbl).Range) Then
MsgBox "Vous êtes dans le " & iTbl & IIf(iTbl = 1, "er", "ème" ) & " tableau !"
Exit For
End If
Next iTbl
Else
MsgBox "Le curseur n'est pas dans un tableau !"
End If
wape