Sub Remplacer()
Dim c As Range
Dim ligne As Long
With Sheets("Global")
ligne = 2
Do While Not IsEmpty(.Cells(ligne, 2))
.Range("A:A").Cells.Replace What:=.Range("B" & ligne), Replacement:=Range("C" & ligne), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ligne = ligne + 1
Loop
End With
End Sub