Bonsoir à tous

J'ai un petit problème avec une fonction "If" qui fonctionne très bien en mode vrai mais pas en mode Else

Le problème se trouve sur la ligne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Worksheets("Optimus").Cells(Ligne, Cell_test).Value <> 0 Then
Quand le résultat est différent de 0 il m'affiche la msgbox
Mais quand le résultat est 0 J'ai un message d'erreur d’exécution 13
J'aurais Certainement le même problème dans le "If" suivant

Voici le code complet
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Date_action()
    Dim Ligne As Long
    Dim Colonne As Long
 
    Ligne = ActiveCell.Row
    Colonne = ActiveCell.Column
 
    Dim Cell_test As Long
    Cell_test = Colonne - 2
 
    Dim Ligne_Test As Long
    Ligne_Test = Ligne - 1
 
If Colonne <> 4 Then 'test si la bonne collone est selectionner
MsgBox "selectionnez la bonne colonne (D)"
 
Else  'tester si la ligne est vide
 
        If Worksheets("Optimus").Cells(Ligne, Cell_test).Value <> 0 Then
        MsgBox "Cette action est déja en cours"
 
        Else    'Tester la ligne du dessus est vide
 
                If Worksheets("Optimus").Cells(Ligne_Test, Cell_test).Value = 0 Then
                MsgBox "La ligne du dessus est vide"
                Else
                'Reste à programmer
                End If
        End If
End If
 
 
End Sub
Merci de vos réponses

Cordialement Eric