Macro : suppression colonne si valeur = valeur -1

Bonjour,

je voudrais faire une petite macro qui supprimer les 3 premières colonnes de chaque tableau, si et seulement si, la valeur de la première colonne est identique à la valeur de la première colonne précédente (voir image ci dessous) :

[image:http://static.ccm2.net/www.commentcamarche.net/pictures/WA5NPQrDaxIORxf6sgdpJg2iDblGIt9Pl2V5nho3chXMQM8YvKurpxo5oYCWUUWV-11.png]

J'ai essayé un début de code :
Sub ODJ()
'
' ODJ Macro
'
'
Dim c As Integer, nbtab As Integer, ndos As Integer, ndosprec As Integer
nbtab = ActiveDocument.Tables.Count
ndosprec = 0
For c = 1 To nbtab
ndos = ActiveDocument.Tables(c).Columns(1)
If ndos = ndosprec Then
ActiveDocument.Tables(c).Columns(1).Select
Selection.Delete
ActiveDocument.Tables(c).Columns(2).Select
Selection.Delete
ActiveDocument.Tables(c).Columns(3).Select
Selection.Delete
ndosprec = ndos
Next c
End Sub

Mais sans succès (erreurs Next sans For). Je ne sais pas si je défini bien ma valeur "ndos"...
Est-ce que quelqu'un pourrait me donner un coup de main ?
Merci beaucoup ! Que la force soit avec vous !