VBA - Traduction vers VBA

Bonjour,

Je voudrais tester de créer une macro mais j'ai du mal avec le code VBA et je voudrai traduire ce code mi-VBA mi-Excel en quelque chose qui marche correctement.

i = 4
o = 2
Tant que Valeur de la Cellule (ligne 2;colonne o) <> ""
   Tant que Valeur de la Cellule (ligne i; colonne 2) <> ""
      Si Valeur de la Cellule (i;2) > 1
         a = Ligne(index(G4:H5;Equiv(Cellule(i;1);G4:H5))) + 1
              Tant que Valeur Cellule (a;6) <> ""
                   Si Valeur Cellule (a;6) = "OUV"
                       b = Ligne(index(G4:H5;Equiv(Cellule(a;5);G4:H5))) + 1
                          Tant que Valeur Cellule (b;6) <> ""
                               Si Cellule(a;6) = Cellule (2;0)
                                      Cellule (i;o) = 3
                               Sinon b = b + 1
                    Sinon a = a + 1
      Sinon i = i + 1
o = o + 1

En réalité elle n'est pas vraiment fini mais déjà de traduire ça en VBA m'aiderait grandement !

Cordialement,

Antho-

Bonsoir,

voici ce à quoi cela pourrait ressembler (non testé naturellement)

Sub aargh()
    i = 4
    o = 2
    While Cells(2, o) <> ""
        While Cells(i, 2) <> ""
            If Cells(i, 2) > 1 Then
                a = Range("G4:H5").Find(Cells(i, 1), lookat:=xlWhole).Row + 1
                While Cells(a, 6) <> ""
                    If Cells(a, 6) = "OUV" Then
                        b = Range("G4:H5").Find(Cells(a, 5), lookat:=xlWhole).Row + 1
                        While Cells(b, 6) <> ""
                            If Cells(a, 6) = Cells(2, o) Then
                                Cells(i, o) = 3
                            Else
                                b = b + 1
                            End If
                        Wend
                    Else
                        a = a + 1
                    End If
                Wend
            Else
                i = i + 1
            End If
        Wend
        o = o + 1
    Wend
End Sub