Bonjour,

j'ai un petit problème, j'aurais besoin de vous pour le régler.
Je dois copier des informations d'un PDF sur Excel, jusqu'à la aucun problème.
Mais après je dois supprimer des informations inutile, j'ai une cellule qui comporte à chaque fois "(xxx kg)"

(si kg ce trouve dans la cellule
alors supprimer ligne entière de la colonne A)


j'ai essayer

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub Sup_kg()
  Dim rcel As Range
      Range("A:A").Select
      For Each rcel In Selection
          If rcel.Value = "kg" Then
             rcel.EntireRow.Delete
       End If
      Next rcel
End Sub
mais vue qu'il y a des caractères avant et après "kg" le code ne fonctionne pas.

pourriez vous m'aider please.