Boucle For incluant IF

Bonjour à tous,

Pouvez-vous s'il vous plaît me dire pourquoi le code ci-dessous n'est pas correct ? En effet, j'ai un message d'erreur d'indomptabilité 13 :

Sub Destination_finale()

For Each Cell In Selection
If Selection.Offset(0, -13) = "test" Then
Selection.Offset(0, 13) = "test"
Else: MsgBox "ok"
End If
Next Cell
End Sub

Merci de votre aide,

Bonjour

Teste comme ceci

For Each Cell In Selection
    If Cell.Offset(0, -13) = "test" Then
      Cell.Offset(0, 13) = "test"
    Else
      MsgBox "ok"
    End If
  Next Cell

Merci beaucoup :)

Ca fonctionne, je comprenais pas pourquoi