Supprimer colonne différente de 1

Re ,

En arriver là au bout de 6 jours parce que votre énoncé était lacunaire, c'est plus que moyen. Aucune mention à la valeur #N/A n'avait été faite. Comme le conseille la charte du site, joindre un petit fichier représentatif et anonymisé permet souvent d'arriver rapidement à une solution sans se perdre en inutiles conjectures et en vains essais.

Cliquez sur le bouton Hop!

Le code dans module1 (version qui conserve les formules en colonne G) :

Sub supprBlocFormules()
Dim t, f, i&, deb
   deb = Timer: Sheets("Feuil1").Select
   Application.ScreenUpdating = False
   t = Range("ag4:ag6000"): f = Range("ag4:ag6000").Formula
   For i = 1 To UBound(t)
      If IsError(t(i, 1)) Then t(i, 1) = 0
      t(i, 1) = IIf(t(i, 1) <> 1, Empty, f(i, 1))
   Next i
   Range("ag4:ag6000").Formula = t
   Rows("4:6000").Sort key1:=Range("ag4"), order1:=xlAscending, Header:=xlNo
   On Error Resume Next
   Range("ag4:ag6000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   MsgBox "Durée = " & Format(Timer - deb, "# ##0.00 \sec.")
End Sub

nota : pour ne conserver que les valeurs en colonne AG (et pas les formules), remplacer f(i, 1) par la valeur 1

Bonjour,

Tout d'abord je souhaite vous remercier pour le code qui fonctionne !

Toute fois nous sommes sur un forum, beaucoup sont débutants, et il est difficile d'être clair et précis quand nous même ne connaissons pas bien le sujet. Nous savons ce que l'on souhaite mais l'expliquer est tout autant difficile.

En effet je n'avais pas mentionné "N/A", car c'est en me triturant la tête que j'ai compris que c'était à cause de cela que les codes ne fonctionnait pas. Je n'avais pas remarqué de suite sa présence dans mon fichier qui a + de 3000lignes.

Veuillez donc être indulgent envers les autres.

Bonne journée !