Macro Excel ne marche pas

Bonjour,

J'ai quelque soucis avec ma macro qui ne se lance pas alors que la condition Not IsEmpty est vraie.

Sub MacroCopieDesSalaires()
'
' MacroCopieDesSalaires Macro
'
Dim i As Integer
i = 3

'
While Not (IsEmpty(Sheets("Salariés").Cells(1, i)))
If IsNumeric(Sheets("Salariés").Cells(1, i)) Then
Sheets("Salariés").Select
Cells(1, i).Select
Selection.Copy
Sheets("Taux").Select
Range("I2").Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
Range("F5:F47").Select
Selection.Copy
Sheets("1").Select
Cells(i + 1, 6).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
i = i + 1
End If

Wend
End Sub