Error type mismatch

[/contents/446-fichier-sub Sub] Invert_Correction()
Dim ActiveRange As Range


Set ActiveRange = ThisWorkbook.Sheets(2).Range("G9", "G" & NRow - 1)

For i = 1 To Num_Of_Timings
ActiveRange.offset(0, i - 1).Select
If Range("Invert").offset(0, i - 1).Value = "Yes" Then
 For Each cell In Selection
 If cell.Value <> "" Then
 cell.Value = -cell.Value
 End If
 Next
 End If
 Next
 
End Sub

cell.Value = -cell.Value