Sub decalage_WL_TEST()
Dim i As Long
For i = 1 To 8
Set c = Range("I" & i & ":" & Cells(i, Columns.Count).End(xlToLeft).Offset(0, 1).Address).Find(Range("G" & i), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
For n = c.Column To Cells(i, Columns.Count).End(xlToLeft).Column Step 2
Cells(i, n) = Cells(i, n + 2)
Next
End If
Next
End Sub