Sub SuppressionLigneTableau()
n = 1
If [tableau1].Item(n, 1) <> "" Then [tableau1].Rows(n).delete
End Sub
Sub InsèreLigneTableau()
[tableau1].Rows(1).Insert
End Sub
Sub AjoutFinTableau()
If [tableau1].Item(1, 1) <> "" Then n = [tableau1].Rows.Count + 1 Else n = 1
[tableau1[nom]].Item(n, 1) = "xxxx"
End Sub
Sub VideTableau()
If [tableau1].Item(1, 1) <> "" Then [tableau1].delete
End Sub