Problem VBA

Bonjour a tous,

Voici ma Vba qui me perturbe :

Sub Trier()
Dim i As Integer

Application.ScreenUpdating = False

Sheets("RESULTAT").Select
For i = 2 To 48 '''''selection tableau
Cells(i, 13).Select ''' va chercher en colonne 13 les infos
If Cells(i, 13) <> "" Then '''si infos
if Cells(i + 50, 13) = Cells(i + 50, 13) + 1 ''' recopie en colonne 13,ligne 50 plus bas
Cells(i + 1, 13).Select ''''
Else
Cells(i + 1, 13).Select
End If
Next i
Application.ScreenUpdating = True
End Sub

mon probleme c que je voudrais prendre les infos sur cells(i,13) il y a des numeros (de 8 à 3)
et si cells(i,13)=8 ou 7 ou 6 ou 5 ou 4 ou 3 me donne résultat 1 mais sur d'autre colonne en rapport du chiffre qu'il trouve.

en formule ce serais 6 tableau nommé 3,4,5,6,7,8 et si A3=8 donc resultat 1 en tableau nommé 8 en G3 et si ont efface A3
donc g3+1 pour la prochaine frappe de chiffre que l'ont ferra sur A3


Cdlmnt 🙂