Option Compare Text
Sub Tranforme()
Dim c As Range
For Each c In Range('B1:B10')
Select Case c
Case Is = 'Oui'
c.FormulaR1C1 = 200
Case Is = 'Non'
c.FormulaR1C1 = 11
End Select
Next c
End Sub
NB :
- Range B1:B10 est la plage où se trouve les Oui et Non.
- Place bien 'Option compare text' avant Sub ... cela permet à la macro de lire les lettres en cas d'un mélange majuscules et minuscules (ex : Oui, oui, NON, noN) - Merci à Hervé de m'avoir donné cette instruction.
Sub Oui200Non11()
Dim L As Integer, C As Range
'dernière cellule non vide
'si tu as donné un nom à ta feuille tu changes Feuil1 par ce nom
with Sheets('Feuil1')
L = .Range('B65536').End(xlUp).Row
For Each C In .Range('B1:B' & L) 'la plage de cellules
If C.Value = 'Oui' Or C.Value = 'oui' Or C.Value = 'OUI' Then C.Value = 200
If C.Value = 'Non' Or C.Value = 'non' Or C.Value = 'NON' Then C.Value = 11
Next C
End Sub