Bonjour,
Je suppose qu'il s'agit d'une instruction VBA ?
Voilà une possibilité :
Sub ActionRepetee()
Dim Lig As Long, DerLig As Long
With Sheets("MaFeuille") 'Toute objet qui commence par "." s'y rapporte
DerLig = .Range("A" & Rows.Count).End(xlUp).Row 'Identifie la dernière ligne
For Lig = 1 To DerLig 'Boucle sur les lignes
If .Range("A" & Lig) = "X" Then 'Si la cellule ne contient pas que "X", remplacer '= "X"' par 'Like "*X*"'
'Action(s)
End If
Next Lig
End With
End Sub