Sub ConvertirDatas()
'Remplacer '===' par 'R'
with ActiveCell.CurrentRegion
.Replace What:="===", Replacement:="R", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
end with
'Convertir les valeurs numériques
Dim c As Range
Dim pos As Integer
For Each c In Selection
pos = InStr(1, c, "/", vbTextCompare)
If pos > 1 Then c = Val(Left(c, pos - 1))
Next c
'Copier les valeurs et les passer à B4
ActiveCell.CurrentRegion.Copy
Range("B4").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub