Sub Remplacer()
Dim x As Range
'
' Macro1 Macro
'
Range("B2:B" & Range("B65536").End(xlUp).Row).Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'Fin de la macro
[B] Range("D2").Select[/B]
For Each x In Range("B2:B" & Range("B65536").End(xlUp).Row)
If x.Value = "Arminia Bielefeld " Then x.Offset(0, 2).Value = "Bielefeld"
If x.Value = "VVV Venlo " Then x.Offset(0, 2).Value = "VVV"
Next x
End Sub