Private Function RepeatString(chaine As String, nombre As Integer) As String RepeatString = Replace(String(nombre, "x"), "x", chaine) End Function