debutabrow = Trouve_intit.Row - 1
debutabcol = Trouve_intit.Column - 1
fintabrow = Trouve_intit.Offset(0, -1).End(xlDown).Row
fintabcol = Trouve_intit.Column + 1
MsgBox "debutabrow = " & debutabrow & vbLf & _
"debutabcol = " & debutabcol & vbLf & _
"fintabrow = " & fintabrow & vbLf & _
"fintabcol = " & fintabcol
MsgBox "On va supprimé le tableau de l'intitulé : " & intitule
Range(Cells(debutabrow, debutabcol), Cells(fintabrow + 2, fintabcol)).Delete shift:=xlUp
debutabrow = Trouve_intit.Row - 1
debutabcol = Trouve_intit.Column - 1
fintabrow = Trouve_intit.Offset(0, -1).End(xlDown).Row
fintabcol = Trouve_intit.Column + 1
MsgBox "debutabrow = " & debutabrow & vbLf & _
"debutabcol = " & debutabcol & vbLf & _
"fintabrow = " & fintabrow & vbLf & _
"fintabcol = " & fintabcol
v = 1
Do While IsEmpty(Cells(fintabrow + v, fintabcol - 1).Value)
v = v + 1
Loop
MsgBox "On va supprimé le tableau de l'intitulé : " & intitule
Range(Cells(debutabrow, debutabcol), Cells(fintabrow + v - 1, fintabcol)).Delete shift:=xlUp