[COLOR="blue"]
Sub test()
Dim Cel As Range, Emplacements As String
For Each Cel In ActiveSheet.UsedRange
If InStr(1, Cel.Value, "'") <> 0 Then
Emplacements = Emplacements & Replace(Cel.Address, "$", "") & "/"
End If
Next Cel
MsgBox Emplacements
End Sub
[/COLOR]