Traduction

Bonjour, je suis un débutant de VB et je souhaiterais savoir si c'étais possible que quelqu'un m'aide a traduire ce code ?

Sub CreerunOF()

CreerunOFForm.Index.Clear

CreerunOFForm.Description.Clear

If definir_colonne = 1 Then

'i=3

i = 3

While ThisWorkbook.Sheets("Configuration").Cells(i, Col_ref(1)).Value <> ""

CreerunOFForm.Description.AddItem (ThisWorkbook.Sheets("Configuration").Cells(i, Col_ref(1)).Value)

i = i + 1

Wend

i = 3

While ThisWorkbook.Sheets("Configuration").Cells(i, Col_ref(0)).Value <> ""

CreerunOFForm.Index.AddItem (ThisWorkbook.Sheets("Configuration").Cells(i, Col_ref(0)).Value)

i = i + 1

Wend

CreerunOFForm.DateCreation.Caption = Date

CreerunOFForm.Show

End If

End Sub

Merci d'avance