Filtrer et changer le nom des cellules

Bonjour,

J'ai un petit soucis lrsque je fais un filtre.

Je filtre une colonne par exemple sur "Ajournement" et je veux modifier le texte des cellules concernées en "Ajourner"

j'ai écrit :

Selection.AutoFilter Field:=32, Criteria1:="Ajournement"

Range("AF22").Select

ActiveCell.FormulaR1C1 = "Ajourner"

With ActiveCell.Characters(Start:=1, Length:=8).Font

.Name = "Tahoma"

.FontStyle = "Normal"

.Size = 8

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Range("AF22").Select

Selection.FillDown

Selection.AutoFilter Field:=32

Ca ne marche pas

Merci

Cece31

Bonjour

Pourquoi ne pas faire

Sub Test()
  ' Plage de données à ajuster
  Range("AF1:AF28").Replace What:="Ajourner", Replacement:="Normal", LookAt:=xlPart _
        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Merci pour ta réponse mais peux tu me préciser ou dois je saisir ce texte ?

Cdlt

Bonjour

faut le mettre à la place de ta macro

Petite rectification (j'avais mal lu)

Sub Test()

' Plage de données à ajuster

Range("AF1:AF28").Replace What:="Ajournement", Replacement:="Ajourner", LookAt:=xlPart _

, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

End Sub