Bonjour à vous

J'ai besoin de tester chaque ligne d'une seule colonne (plus de cinquante tests par cellule ) et de renvoyer le résultat de chaque ligne vers chaque ligne d'une autre colonne sur la même feuille EXCEL.

J'ai essayé avec des SI mais j'ai été limité par excel (7 imbrication maxi) ,même en concaténant & les SI

j'ai décidé de faire une macro VBA ,mais je suis un débutant ,je ne connais pas toutes les syntaxes
Pour info ,je vous envoie ce que j'ai crée (pour une dizaine de tests ) ,mais cela ne fonctionne pas :

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
sub essai2()
 
Dim i As Integer, Lne As Single
 
    'commencement à la ligne 10 de la colonne S
    For i = 10 To 50
        'si valeur de i de la colonne S égale la valeur à la valeur alors Lne = renvoie valeur en colonne AQ
        If Range("S" & i).Value = 10 Then Lne = 0
            ElseIf Range("S" & i).Value = 11 Then Lne = 0.1
                ElseIf Range("S" & i).Value = 12 Then Lne = 0.2
                     ElseIf Range("S" & i).Value = 13 Then Lne = 0.3
                        ElseIf Range("S" & i).Value = 14 Then Lne = 0.4
                             ElseIf Range("S" & i).Value = 14 Then Lne = 0.4
                                    ElseIf Range("S" & i).Value = 15 Then Lne = 0.5
                                            ElseIf Range("S" & i).Value = 16 Then Lne = 0.6
                                                    ElseIf Range("S" & i).Value = 17 Then Lne = 0.7
                                                        ElseIf Range("S" & i).Value = 18 Then Lne = 0.8
                                                            ElseIf Range("S" & i).Value = 19 Then Lne = 0.9
 
            Else
                MsgBox ("Les cellules sont vide")
 
        End If
 
 
 
        Range("AQ10:AQ12") = Lne
    Next i
 
 
End Sub
Si quelqu'un peut m'aider cela serait cool

Merci