Sub test()
Dim Cel As Range, Adr As String, Adr2 As String
'Recherche de la première cellule commençant par "00"
Set Cel = Cells.Find(What:="00*", LookIn:=xlFormulas, LookAt:=xlWhole)
'Si pas trouvé, il n'y en a pas alors c'est fini
If Cel Is Nothing Then Exit Sub
'sinon on note l'adresse de la 1ère trouvée
Adr = Cel.Address
Do
'si la colonne de la cellule trouvée n'est pas 1 (pas A)
If Cel.Column <> 1 Then
'on note l'adresse de la cellule une colonne avant
Adr2 = Cel.Offset(0, -1).Address
'on supprime la colonne
Cel.EntireColumn.Delete
'On affecte la cellule Cel à la cellule une colonne avant
Set Cel = Range(Adr2)
End If
'On recherche la prochaine cellule correspondant aux critères à partir de la dernière cellule trouvée
Set Cel = Cells.FindNext(Cel)
Loop Until Cel.Address = Adr Or Cel Is Nothing 'jusqu'à ce que la prochaine cellule ait la même adresse que la première ou qu'on ne trouve plus rien
End Sub