Passez le sub en public, en écrivant :
Public Sub transposer()
'
'
'
End Sub
De plus, à la fin de votre boucle sur i, n'oubliez pas de la "terminer", en écrivant
For i = 0 to rng.Rows.Count Step 3
'
'
'
Next i
Et Cell(...) qui n'est pas correct, écrire Cells(...) à la place
Bibu